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ABSTRACT 


THE MNCDI DIAGNOSTIC PROGRAM IS A SERIES OF TESTS DESIGNED 

TO TEST ALL LOGIC FUNCTIONS AND DATA PATHS ACCESSIBLE. 
ADDITIONAL ROUTINES ARE PROVIDED TO VERIFY ADDITIONAL SECTIONS. 
TOTAL PROGRAM CONTROL IS ACCOMPLISHED THRU THE CONSOLE TERMINAL 
VIA THE ODT/CONSOLE MICROCODE AND THE PROVISIONS OF SECTION 5. 


REQUIREMENTS 


EQUIPMENT 

1. PDP11/03 COMPUTER OR LSI-11_ PROCESSOR 

2. DLV11 WITH 1/0 TERMINAL (LA36, VT100, ETC.) 
3. MNCDI (DIGITAL IN) OPTION 

STORAGE 

THE PROGRAM USES THE LOWER 4K OF MEMORY. 


LOADING PROCEDURE <XXDP> 


ENSURE THAT THE DIAGNOSTIC LOAD MEDIA IS INSTALLED IN DRIVE 0. 
BOOT THE MEDIA BY iY beams Fag « IF . THE ODT MICRO-CODE 
STATE OR CYCLING THE POWER ‘ON-OFF’ SWITCH. 

UPON SUCCESSFUL BOOTING OF THE LOAD MEDIA. THE XXDP MONITOR 
tien tant ITSELF AND INFORM THE OPERATOR OF THE OPERATING 


T MAYBE SELECTED. 
THE OPERATOR SHOULD TYPE ‘R VMNB??°" FOLLOWED BY A ‘RETURN’ 
THE XXDP MONITOR WILL LOAD THE PROGRAM INTO MEMORY AND START 
THE PROGRAM AT LOCATION 200. 


STARTING PROCEDURE 


THE PROGRAM WILL RESPOND BY TYPING THE PROGRAM TITLE. 

THE PROGRAM WILL NOW ASK FOR AN INITIAL SWITCH REGISTER 

VALUE TO BE STORED IN THE SOFTWARE SWITCH REGISTER. 

THE PROGRAM WILL NOW DISPLAY THE MENU OF TEST OR LOOPS AVAILABLE. 
THE OPERATOR SELECTS THE TESTS BY TYPING THE SELECTED CHARACTER 
FOLLOWED BY DEPRESSING THE “RETURN'' KEY. 


PROGRAM START 
STARTING ADDRESS OF THE PROGRAM 


RESTART ADDRESS OF THE PROGRAM 
STARTING ADDRESS FOR THE OPTION TESTER. 


SOFTWARE SWITCH REGISTER 


OPTIONS 
SWITCH FUNCTION 


HA! T ON ERROR 
LOO ON TEST 
INHIBIT ERROR TYPEOUTS 
INHIBIT SIZING THE NUMBER OF MNCDI'S 
INHIBIT ITERATIONS 
ON ERROR 
LOOP ON ERROR 
LOOP ON TEST IN SWR <7-0> 


THE TEST OR LOOP MAYBE STOPPED BY TYPING -» “CONTROL & C"' 
KEYS. THIS OPERATION WILL STOP THE PROGRAM AND ENABLE 
THE OPERATOR TO SELECT DIFFERENT PROGRAM COMMAND'S. 

THE SOFTWARE SWITCH REGISTER CAN BE CHANGED UNDER PROGRAM 
CONTROL BY TYPING THE ‘CONTROL & G* KEYS. THIS 

KEYBOARD OPERATION WILL PRINT OUT THE CURRENT CONTENTS 
AND ACCEPT NEW OCTAL SWITCH REGISTER DATA TERMINATED 
WITH A CARRIAGE RETURN. 

ONCE THE ODT MODE HAS BEEN ENTERED BECAUSE OF 

ERROR CONDITION WITH BIT15 SET (HALT ON ERROR), ON STEP #2 
ABOVE IS OF NO VALUE, SO RESORT TO STEP #1 TO ALTER THE 
ay are REGISTER IF DESIRED BEFORE TYPING 


IF THE PROGRAM IS PERFORMING RESET INSTRUCTIONS, SEVERAL 
Mg sony ® & G OR C* COMMANDS MAY BE NECESSARY TO BE ACKNOWLEDGE 


ERROR REPORTING 


ERROR COMMENT 


ALL ERRORS ARE ACCOMPANIED WITH AN ENGLISH LANGUAGE DESCRIPTIVE 
COMMENT AS TO THE TYPE OF FAILURE. FURTHER QUALIFICATION OF 

THE ERROR CAN BE OBTAINED IF NEEDED FROM THE COMMENT AT THE 
ERROR PC OR FROM THE TEST ITSELF. 


ERROR DATA 


*UNIT UNIT NUMBER 

*ERRPC LISTING ADDRESS WHERE THE ERROR WAS DETECTED 
*BUSADR MNCDI BUS REG ADDRESS OF CONCERNED OPERATION 
EXPCT DATA THAT WAS EXPECTED 

RCVD DATA THAT WAS RECEIVED 


*ALWAYS REPORTED 





MISCELLANEOUS 


MNCDI BUS ADDRESS MODIFICATION 


MODIFY LOCATION ‘S$8ASE" (LOC. 1244) IF BASE BUS ADDRESS IS NOT 171160. 
MODIFY LOCATION ‘SVECT1° (LOC. 1240) IF INTERRUPT VECTOR IS NOT 130. 
MODIFY LOCATION ‘S$CDW1" (LOC. 1250) IF THE OUTPUT BASE ADDRESS 

IS NOT 171260 FOR THE WRAP-AROUND TEST. 


*NOTE: USE THE ‘B’* PROGRAM COMMAND TO MODIFY THIS LOCATIONS 
AFTER PROGRAM LOAD. 


XXDP/APT NOTES 


THIS DIAGNOSTIC IS CHAINABLE UNDER XXDP (REQUIRES 8K OR MORE). 
THIS DIAGNOSTIC DOES SUPPORT ‘‘APT’’ BUT HAS NOT BEEN RUN UNDER IT. 


POWER FAIL 


A POWER FAILURE WILL CAUSE A RESTART MESSAGE ON POWER UP AT 
WHICH TIME THE PROGRAM IS RESTARTED (ONLY ON SYSTEMS WITH 
NON-VOLATILE MEMORY AND WITH APPROPRIATE HARDWARE). 


MULTIPLE MNCDI INTERFACE TESTING 


THIS PROGRAM DOES ‘‘AUTO-SIZE** THE NUMBER OF MNCDI'S CONNECTED. 
THIS DIAGNOSTIC WILL TEST SEQUENTIALLY UP TO 8 MNCDI INTERFACES 
WITH CONTIGUOUS BUS ADDRESSES. THE ‘‘AUTO-SIZE** CAN BE INHIBITED 
BY THE OPERATOR SETTING BIT 15 OF LOCATION ‘SENV (LOC. 1214) OR 
SETTING SWITCH REGISTER BIT 12 TO A ONE. USE THE *B’* PROGRAM 
COMMAND TO LOAD THE BASE AND VECTOR ADDRESSES. 


RESTRICTIONS 
ALL USER CONNECTIONS MUST BE REMOVED. 
EXECUTION TIME 


EXECUTION TIME RANGES FROM ABOUT 5 SECONDS WITH NO ITERATIONS 

TO ABOUT 20 SECONDS WITH ITERATIONS ENABLED WITH ONE MNCDI CONNECTED. 

AN END PASS MESSAGE INDICATES ALL TESTS HAVE COMPLETED ON ALL SELECTED UNITS. 
END OF PASS WILL ALSO REPORT TOTAL ERROR COUNT AND ANY UNIT'S THAT HAD ERRORED. 





PROGRAM TEST DESCRIPTIONS 


= LOGIC TESTS 


THIS DIAGNOSTIC CONTAINS A SERIES OF INDEPENDENT TESTS DESIGNED 
TO TEST LOGIC FUNCTIONS AND DATA PATHS OF THE MNCD] INPUT CONTROL. 
A COMPLETE LIST OF TESTS IS AVAILABLE IN THE TABLE OF CONTENTS 

AT THE BEGINNING OF THE LISTING. THE te ad FIELD WITHIN 

EACH TEST CAN BE BENEFICIAL IN TEST UNDERSTANDING. 

THE PROGRAM WILL AUTO-SIZE UP TO 8 MNCDI'S TO BE TESTED. 


= WRAP-AROUND LOGIC AND DATA TEST 


THE PURPOSE IS TO VERIFY PROPER OPERATION OF THE DIGITAL INPUT 
SIGNALS FROM THE CABLE CONNECTOR. A MNCDO SUPPLIES DATA AND 
CONTROL SIGNALS TO THE MNCDI. THE ROUTINE REQUIRES THE USE OF A 
MNCDI1, MNCDI TEST MODULE, MNCDO, MNCDO TEST MODULE AND A 

SHORT BERG CABLE. 


= TYPEOUT LOOP FOR INPUT TEST MODULE SWITCHES 


THE LOOP ENABLES VERIFICATION OF THE CABLE CONNECTOR INPUT WITHOUT 

THE USE OF A MNCDO. THE PROGRAM WILL WAIT FOR THE OPERATOR TO 

DEPRESS THE git TEST MODULE PUSHBUTTON. WHEN THE OPERATOR DEPRESSES 
THE BUTTON, A SIGNAL FLAG (STROBE) IS SENSED AND THE PROGRAM READS 

A MNCDI REGISTER. THE CONTENTS OF THE MNCDI TEST MODULE SWITCH REGISTER 
CAN BE READ BY READING THE MNCDI INPUT DATA REGISTER. THE VALUE 

OF THE INPUT IS REPORTED AS AN OCTAL NUMBER AND A 16 BIT BINARY. 

THE OPERATOR MAY CHANGE THE TEST MODULE DATA SWITCHES AND DEPRESS THE 
PUSH-BUTTON AGAIN. 


= LOGIC TEST WITH TESTER SUPPORT (SA 210) 


THE IN-HOUSE TESTER CONSISTS OF A INPUT/OUTPUT ag TO oo * 
OUTPUT a SIGNAL AND TO STIMULATE THE INPUT A_AND CONTR 
SIGNALS. AN EXPANDED LOGIC TEST IS EXECUTED INCLUDING A WRAP-AROUND 
DATA AND CONTROL TEST. 


LISTING 
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CVMNBA.P11 TABLE OF CONTENTS 


BASIC DEFINITIONS 
OPERA hy -» & SWITCH SETTINGS 


TAGS 
APT MAILBOX-E TABLE 
ERROR POINTER TABLE 
a 8 323 THE COMMON TAGS 
TYPE NAME 


PROGRAM 
GET VALUE FOR SOFTWARE SWITCH REGISTER 
KEYBOARD COMMAND DECODER 
DETERMINE THE NUMBER OF MNCDI'S ON THE SYSTEM 
SUBROUTINE TO HANDLE CONTROL C/G 


MNCDI TESTS 


VERIFY CORRECT I.D. CODE FOR MNCDI (IN-HOUSE TESTER) 
VERIFY A MNCDI BUS ADDRESS RESPONSE 

FLOAT A 1 ACROSS THE MNCDI STIMULUS BIT REGISTER 

FLOAT A 0 ACROSS THE MNCDI STIMULUS BIT REGISTER 

ENSURE THAT ‘RESET’’ CLEARS THE MNCDI STIMULUS BIT REGISTER 
VERIFY BYTE OPERATION ON THE MNCDI STIMULUS BIT REGISTER 
TEST THAT BIT1 OF MNCDI STATU “WRITE 


REGISTER IS READ-WRITE 

REGISTER IS READ-WRITE 

REGISTER IS READ-WRITE 

T9 OF MNCDI STATUS REGISTER IS READ-WRITE 

BIT12 OF MNCDI STATUS REGISTER IS READ-WRITE 

BIT14 OF MNCDI STATUS REGISTER IS READ-WRITE 
THAT ‘RESET’* CLEARS THE MNCDI STATUS REGISTER 


BE CLEARED BY A ‘RESET"’ 
DATA READY’ WILL NOT ate IF IN STIMILUS MODE AND NO SBR MATCH 
THAT ‘OVERRUN E * SETS 

THAT ‘OVERRUN ERROR’’ CAN BE WRITTEN TO A ZERO 

THAT ‘RESET CLEARS ‘OVERRUN ERROR"’ 

INVERT DATA FUNCTION 

EACH BIT OF THE MNCDI INPUT DATA REGISTER CAN BE CLEARED 

THAT *“RESET’* CLEARS MNCDI INPUT DATA REGISTER 
VERIFY THAT A 2ND STROBE PULSE WILL NOT CHANGE THE DIR DATA 
INTERRUPT TEST == VERIFY MNCDI INTERRUPTS VIA DATA READY VECTOR 
INTERRUPT TEST == VERIFY MNCDI INTERRUPTS VIA OVERRUN ERROR 
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CVMNBA.P11 TABLE OF CONTENTS SEQ 0008 
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716 T44 VERIFY INPUT REPLY SETS OUTPUT DONE FLAG 
730 145 VERIFY THE MNCDO = WRAPAROUND - MNCDI DATA PATH 
747 T46 VERIFY THE MNCDO = WRAPAROUND - MNCDI INVERTED DATA PATH 
765 147 VERIFY IN 10 MODE THAT SBR AND INPUT BITS SET INPUT READY 
806 T50 TEST THE TRANSITION ENABLE AND TRANSITION DETECTION 
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874 MNCDI TEST MODULE SWITCH TYPEOUT LOOP 
898 TTY INPUT ROUTINE 
899 SCOPE HANDLER ROUTINE 
916 ERROR HANDLER ROUTINE 
917 ERROR MESSAGE TYPEOUT a? 
919 BINARY TO OCTAL (ASCII) AND TYPE 
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921 APT COMMUNICATIONS ROUTINE 
924 POWER DOWN AND UP ROUTINES 
928 READ AN OCTAL NUMBER FROM THE TTY 
932 TYPE ROUTINE 
933 BINARY TO ASCII AND TYPE ROUTINE 
936 TRAP DECODER 


(3) TRAP TABLE 
1037 ASCII MESSAGES 
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15 .TITLE CVMNB-A MNCDI DIAGNOSTIC 

(1) > COPYRIGHT (C) 1978 

(1) :*DIGITAL EQUIPMENT CORP. 

CD ; *MAYNARD, MASS. 01754 

( 

a) : *PROGRAM BY SHOOP 

(1) THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 

oe S*PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 

(1) ce 

16 

17 171160 ABASE=171160 _ ; DEFAULT DIGITAL INPUT ADDRESSES 

18 000120 AVECT1=120 “DEFAULT DIGITAL INPUT VECTOR 

19 171260 ACDW1=171260 § :DEFAULT DIGITAL OUTPUT ADDRESSES <wRAP-AROUND> 

29 .SBTTL BASIC DEFINITIONS 

(1) :*INITIAL ADDRESS OF THE STACK POINTER *** 1100 *#* 

(1) 001100 STACK= 1100 

(1) -EQUIV EMT,ERROR ::BASIC DEFINITION OF ERROR CALL 

oe “EQUIV IOT.SCOPE > :BASIC DEFINITION OF SCOPE CALL 
) 

(1) ; *MISCELLANEOUS DEF INITIONS 

(1) 000011 11 ::CODE FOR HORIZONTAL TAB 

(1) 000012 es 12 >:CODE FOR LINE FEED 

(1) 000015 CR= 15 >:CODE FOR CARRIAGE RETURN 

(1) 000200 CRLF= 200 >:CODE FOR CARRIAGE RETURN-LINE FEED 

(1) 177776 PS= 177776 >=PROCESSOR STATUS WORD 

(1) .EQUIV PS,PSW 

(1) 177774 STKLMT= 177774 ::STACK LIMIT REGISTER 

(1) 177772 PIRQ= 177772 > :PROGRAM INTERRUPT REQUEST REGISTER 

(1) 177570 DSWR= 177570 tSHARDWARE SWITCH REGISTER 

CD 177570 DDISP= 177570 ::HARDWARE DISPLAY REGISTER 

(1) :*GENERAL PURPOSE REGISTER DEFINITIONS 

(1) 000000 RO= 20 ;:GENERAL REGISTER 

(1) 000001 R1= 11 > GENERAL REGISTER 

(1) 000002 R2= %2 > GENERAL REGISTER 

(1) 000003 R3= 13 + :GENERAL REGISTER 

(1) 000004 R4= 14 ::GENERAL REGISTER 

(1) 000005 RS= 45 >:GENERAL REGISTER 

(1) R6= 16 > GENERAL REGISTER 

(1) 000007 R7= 17 [GENERAL REGISTER 

(1) SP= 16 +:STACK POINTER 

1) 000007 PC= 47 > PROGRAM COUNTER 

(1) *PRIORITY LEVEL DEFINITIONS 

(1) 0 - ITY LEVEL 0 

(1) 000040 PRI= 40 +: PRIORITY LEVEL 1 

(1) PR2= 100 ::PRIORITY LEVEL 2 

(1) 000140 PR3= 140 > PRIORITY LEVEL 3 

(1) 2 PR4= 200 > :PRIORITY LEVEL 4 

(1) 000240 PRS= 240 > :PRIORITY LEVEL 5 

(1) 000300 PR6= 300 ::PRIORITY LEVEL 6 

(1) 000340 PR7= 340 > :PRIORITY LEVEL 7 


[0 SERA! REL ALES ALA LOE EEL ANA PE SAG AC AA NEE RA A 
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3*'‘SWITCH REGISTER'’ SW: TCH DEFINITIONS 
SW15= 100000 


1T04,B 
B1T03,B 
B1T02,B 


ee ee ek ek ek ek kk kd ek dh od td th th a oh oh ot SH SI 
ee Ne eee ee ee eee ee eee eee ee ele ae ae ae ee ee ee ee ee eee ee YS we eee eae a 
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-EQUIV B1T01,B1T1 
-EQUIV BIT00,BITO 


7 *BASIC tal TRAP VECTCR ADDRESSES 
ERRVEC= 4 TIME OUT AND OTHER ERRORS 
RESVEC= 10 : RESERVED AND ILLEGAL INSTRUCTIONS 


TBITVEC=14 
= 14 >; TRACE TRAP 

; ;BREAKPOINT TRAP (BPT) 
Sh at br eta TRAP (IOT) **SCOPE** 
3;POWER FAIL 
+ s EMULATOR TRAP (EMT) **ERROR** 
3" "TRAP’’ TRAP 
3: TTY KEYBOARD VECTOR 

TPV 7;TTY PRINTER VECTOR 

PIROVEC=240 3;PROGRAM INTERRUPT REQUEST VECTOR 


( 
( 
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-SBTTL OPERATIONAL SWITCH SETTINGS 
SWITCH USE 


HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 

INHIBIT SIZING ae # OF MNCDI'S 
INHIBIT ITERATION 

LOOP ON ERROR 

LOOP ON TEST IN SWR<7:0> 


-SBTTL TRAP CATCHER 


eBe Se 
ese epepe ee eee 


-=0 

;*ALL UNUSED LOCATIONS FROM 4-776 CONTAIN A *'.+2°° 
7*AND ‘JSR PC,RO’* SEQUENCE TO CATCH ILLEGAL INTERRUPTS. 
[*AND INTERRUPTS TO THE WRONG VECTOR. 

: sLOCATION 0 CONTAINS A 0 TO CATCH IMPROPERLY LOADED 

3% . 


*=4 
“WORD 10TRD,200 ;HANDLE BUSS ERROR. 


DISPREG: .WORD 0 SOFTWARE DISPLAY REGISTER 
SWREG:  .WORD 0 “SOFTWARE SWITCH REGISTER 


-=200 
JMP BEGIN 


JMP RESTRT RESTART ADDRESS 
JMP TESTER TESTER STARTING ADDRESS 


-=100 
104,200,RTI z;LSI-11 ‘B EVENT’’ PROTECTION 





N 1 
DIAGNOSTIC MACY11 27(654) 19-SEP-78 08:54 PAGE 2 
TRAP CATCHER _ SEQ 0013 


-SBTTL ACT11 HOOKS 


4 FRA EE EERE EREEREEREEREREEREREERREERREREEE 


;HOOKS REQUIRED BY ACT11 
$SVPC= SAVE PC 


331)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 


222)SET LOC. Pt TO ZERO 
33 RESTORE P 


-=1000 
-SBTTL APT PARAMETER BLOCK 


DUIS AISI ISI EIIIDISIDIOIIOIIIII IE IOIIICIIOIIIOIICIOIIDIOIIUIIIIOIIIIUUI IOI IIR ht 
SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
eT rtitittititit iii iit ii tit itt 
373SAVE CURRENT LOCATION 
72SET POWER FAIL TO POINT TO START OF PROGRAM 
73FOR APT START UP 
3sPOINT TO APT INDIRECT ADDRESS PNTR. 
3zPOINT TO APT HEADER BLOCK 
7zRESET LOCATION COUNTER 
BASSE IIIS IIOIIIEIIIIIIOIUISIDIOIIIOIIIIOIIIOIUIIIIUIOIUIOIUIOI IO IO IR it tt 
;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 


SAPTHD: 

SHIBTS: 0 TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

SMBADR: 3 ZADDRESS OF APT MAILBOX (BITS 0-15) 

STSTM: 7 ;RUN TIM OF LONGEST TEST 

SPASTM: + 7 RUN OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

SUNITM: 30 ;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
SETEND-SMAIL/2 3zLENGTH MAILBOX-E TABLE (WORDS) 


ee ek ed ed et od = 2“ a LY) I = 
ee ee ee a a ee 
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COMMON TAGS SEQ 0014 


-SBTTL COMMON TAGS 


JAAR EEEREEREREEREREEREREREREEREEEEREAREERERAEREREKEEE 


TRTHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
:*USED IN THE PROGRAM. 


SCMTAG: :-START OF COMMON TAGS 
:¢ CONTAINS THE TEST NUMBER 
ERROR FLAG 
SUBTEST ITERATION COUNT 
SCOPE LOOP ADDRESS 
SCOPE RETURN FOR ERRORS 
TOTAL ERRORS DETECTED 
ITEM CONTROL BYTE 
MAX. ERRORS PER TEST 
PC OF LAST ERROR —— 
*GOOD’ DAT 
*BAD’ DATA. 


: s CONTAINS DATA 
: sRESERVED--NOT TO BE USED 


; sAUTOMATIC MODE INDICATOR 
: INTERRUPT MODE INDICATOR 


2 ADDRESS OF SWITCH REGISTER 

:sADDRESS OF © eres REGISTER 

:-TTY KBD STATUS 

:-TTY KBD BUFFER 

:zTTY PRINTER STATUS REG. ADDRESS 

a) ts PRINTER BUFFER REG. ADDRESS 
CONTAINS NULL CHARACTER FOR FILLS 
[CONTAINS # OF FILLER CHARACTERS REQUIRED 

: INSERT FILL CHARS. AFTER A ‘LINE FEED" 
2" "TERMINAL ei = FLAG (BIT<07>=0=YES) 
MAX. NUMBER OF ITERATIONS 

; ZESCAPE ON ERROR ADDRESS 

STION MARK 


par 
— 
WW Rhona 3 a oe 
NERRVS 
SOooooooo00 -$oCoo°o°o°ooo 


De kD ed ad od a 
o9 
on 
oS 
$ 


i i de a a a a a a a 
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( 
( 
( 
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( 
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( 
( 
( 


J RARER RRR EERE 


° ‘Sar TL APT MAILBOX-ETABLE 


LER RE RERRRREREEEER EERE 
;;APT MAILBOX 


33FATAL ERROR NUMBER 
37: TEST NUMBER 
37PASS COUNT 
EVCT ;;DEVICE COUNT 
AUNIT ;:1/0 UNIT NUMBER 
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CVMNBA P11 APT MAILBOX-E TABLE . SEQ 0015 


: WORD ; sMESSAGE ADDRESS 
: WORD TH 


VIRONMENT MODE 
3;APT SWITCH REGISTER 
3;USER SWITCHES 
3;CPU TYPE, Foy Te 
BITS IS-115CPu T 

1/04=01, "11 /05= 02,11/20=03,11/40=04,11/45=05 
11770=06,PD ~ hi =10 

BIT 10=REAL TIME cL OCK 
BIT 9=FLOATING POINT + rests. 
BIT 8=MEMORY MANAGEMENT 
3 ;HIGH ADDRESS.M.S. BYTE 
¥: PE BLKAI 


(HIGH BYTE) 


_— ADDRESS ,BL 
M.LAST ADDR. we BYTES, THIS WORD AND LOW OF ‘'TYPE'’ ABOVE 
HIGH ADDRESS M.S. BYTE 
ty TYPE ,BLK#2 
M.LAST ADDRESS ,BLKA2 
:IHIGH eS -S.BYTE 
M.LAST ADDRESS ,BLKA3 
;IHIGH ADDRESS, ~ S.BYTE 
7MEM. TYPE .BLK# 
7 :MEM.LAST ADDRESS, BLKA4 
ZEINTERRUPT VECTOR#1,BUS PRIORITY#1 
INTERRUPT VECTOR#2BUS PRIORITY#2 
ctor Hee ae OF EQUIPMENT UNDER TEST 
3;CONTROLLER DESCRIPTION WORDA1 
7:CONTROLLER DESCRIPTION WORD#2 
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-SBTTL ERROR POINTER TABLE 


*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

[*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE Lt # PERTINENT. 

> *NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA _IS (SERRPC 

3 *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


3;POINTS TO THE ERROR MESSAGE 
3;POINTS TO THE DATA HEADER 
3;POINTS TO THE DATA 
3;POINTS TO THE DATA FORMAT 


SERRTB: 


OO 39 2 ss Ss ss st SH Ss 
Whwwvevvuvuvuvvuvuvvy 


;ITEM 1 
015652 017150 020512 EM1,DH1,DT1,DFO ;MNCDO BUS ERROR 
020674 


RA FS 


sITEM 2 
ere 017406 020614 EM12,DH12,DT12.DF0 sMNCDO-MNCDI WRAP-AROUND STATUS ERROR 
; ITEM 


3 
Beers 017451 020632 EM13,DH13,DT13,DF0 ;MNCDO-MNCDI WRAP-AROUND DATA ERROR 
7 ITEM 


4 
016673 017275 020554 EM14,DH7,DT7,DFO sMNCDI INCORRECT I.D. VALUE 
020674 _— 


5 
016150 017201 020524 EMS ,DHS ,DTS ,DFO :MNCDI BUS ERROR 
020674 — 


6 
de veh 017241 020540 EM6 ,DH6,DT6,DFO sMNCDI STIMULUS REGISTER ERROR 
; ITEM 


7 
016330 017275 020554 EM7,DH7,DT7,DFO :MNCDI STATUS REGISTER ERROR 
ZITEM 


10 
paeegl 017331 020570 EM10,DH10,DT10,DFO sMNCDI DATA REGISTER ERROR 
; ITEM 


11 
016450 017364 020604 EM11,DH11,DT11,DF0 ;MNCDI INTERRUPT ERROR 
020674 _— 


12 
ee 017514 020650 EM15,DH15,DT15,DFO sMNCDI ILLEGAL OR TRAP INTERRUPT 
7 ITEM 


13 
hah 017547 020662 EM16,DH16,DT16,DF0 sEXISTING MNCDI FAILED TO RESPOND 
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DIAGNOSTIC MACY11 27(654) 

ERROR POINTER TABLE 

000000 OCSR: 0 

000000 OCSR1: 0 

000000 DOR : 0 

000000 DOR1: 0 

000000 ICSR: 0 

000000 ICSR1: 0 

000000 DIR: 0 

000000 DIR1: OQ 

000000 SBR: 0 

000000 SBR1: 0 

000000 DIDINV: 0 

000000 DIDINS: 0 

000000 DIEINV: 0 

000000 DIEINS: 0 

000000 DWARF: OQ 

000000 TEMP: 0 

000000 TEMP1: 0 

000000 TEMP2: 0 

167770 TSTRO: 167770 

167772 TSTR2: 167772 

167774 TSTR4: 167774 

167776 Lee ahi 
VADDRO: 4 

000010 VADDR: 10 

000120 VECLST: AVECT1 

000130 AVECT1+10 

000140 AVECT1+20 

000150 AVECT1+30 

000470 AVECT1+350 

000460 AVECT1+340 

000450 AVECT1+330 

000440 AVECT1+320 
VECOFF: 0 

000010 10 

000020 20 

000030 30 

000350 350 

000340 340 

000330 330 

000320 320 

000000 EVER: 0 

000000 BADUNT: 0 

000000 UNITBD: 0 

010000 BITDAT=BIT12 

004000 BITEXT=BIT11 


HIGH BYTE ADDRESS 


HIGH BYTE ADDRESS 


HIGH BYTE ADDRESS 


HIGH BYTE ADDRESS 
; INPUT INTERREPT VECTOR # 1 


7 INPUT INTERRUPT VECTOR # 2 


70= NO EDGE CONNECTOR, =1 IN-HOUSE TESTER, =2 WRAP-AROUND 


RESTART INDICATOR 
; IN-HOUSE TESTER ADDRESS 


sDEVICE MASK 


Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be 


;MULTIPLE OUTPUT UNITS ADDRESSESS DIFFERENCE 
;MULTIPLE INPUT UNITS, ADDRESS DIFFERENCE 
VECTOR FOR wat = 


;BAD UNIT INDICATOR 


MAINT INPUT INHIBIT 
; INPUT MAINT STROBE 


SEQ 0017 


, «@ 
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CVMNBA .P'1 ERROR POINTER TABLE . SEQ 0018 


nea 001446 RESTRT: ; INDICATE RESTART 
005037 001440 BEGIN: CLR CLEAR DWARF MODE INDICATOR 
001446 CLR 


BR RBE GO 
000001 TESTER: MOV ; INDICATE MNCDI IN-HOUSE TESTER MODE 
001446 CLR 


INITIALIZE THE COMMON TAGS 
THE COMMON TAGS (S$CMTAG) AREA 
001100 MOV #SCMTAG ,R6 3sFIRST LOCATION TO BE CLEARED 
CLR (R6) + 33CLEAR MEMORY LOCATION 
001140 CMP AMSWR,R6 ; ;DONE? 
on --6 


;:LOOP BACK IF NO 
STACK, SP 3sSETUP THE STACK POINTER 
: INITIALIZE A FEW VECTORS 
#SSCOPE ,a#IOTVEC At VECTOR FOR SCOPE ROUTINE 
#340, aM1OTVEC+2 ;:LEVEL 7 
#SERROR , a#EMTVEC em VECTOR FOR ERROR ROUTINE 
#340 aMEMTVEC+2 = LEVEL 7 
#STRAP , aA TRAPVEC TRAP VECTOR FOR TRA® CALLS 
#340, a#TRAPVEC+2;LEVEL 7 
#SPWRDN VEC sLeVEL one VECTOR 


73SETUP END-OF-PROGRAM COUNTER 
+e INITIALIZE NUMBER OF ITERATIONS 
3;CLEAR THE ESCAPE ON ERROR ADDRESS 
3 sALLOW ONE ERROR PER TEST 
;;INITIALIZE THE LOOP ADDRESS FOR SCOPE 
012737 MOV -SLPERR >: SETUP iy & yt LOOP ADDRESS 
fe FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
EQUAL TO A ‘1°", SETUP FOR A SOFTWARE SWITCH REGISTER. 
013746 000004 MOV @WERRVEC,-(SP) ;;SAVE ERROR VECTOR 
#64$, AHERRVEC 23SET UP ERROR VECTOR 
#DSWR, SWR da FOR A HARDWARE SWICH REGISTER 
#DDISP,DISPLAY ;ZAND A HARDWARE DISPLAY REGISTER 
177777 #~1 ,aSWR TRY TO REFERENCE HARDWARE SWR 
66$ T:BRANCH IF NO TIMEOUT TRAP OCCURRED 
+2 AND THE HARDWARE SWR IS NOT = -1 
BR 65$ BRANCH IF NO TIMEOUT 
001774 : #65$, (SP) 7:SET UP FOR TRAP RETURN 


000176 : AMSWREG , SWR 3:POINT TO SOFTWARE SWR 
000174 #DISPREG,DISPLAY 
000004 : (SP)+,@MERRVEC ;;RESTORE ERROR VECTOR 


001176 CL $PASS ;CLEAR PASS COUNT 
000200 001211 MAPTSIZE,SENVM ;;TEST USER SIZE UNDER APT 
E 67$ SIYES, USE NON-APT SWITCH 
012737 001212 001140 ASSWREG, SWR TINO,USE APT SWITCH REGISTER 





CVMNB-A MNCDI DIAGNOSTIC 


CVMNBA.P11 INITIALIZE THE C 


012737 


000403 
112737 
000424 


105737 


013737 


005046 
012746 
And 


00000 
010524 


177777 
010142 
002156 
000042 
001210 
001140 


000001 


001134 


002520 
001446 


020044 
000001 


020745 
001450 
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ROUTINE TO OVERLAY THE ‘‘STYPE’’ ROUTINE 
MOV #5046, STYPE CLR -(SP) 
#12746,$TYPE+2 :MOV #STYPE+12,-(SP) 
WSTYPE+12,STYPE+4 
014154 #RTI ,STYPE+6 3RTI 
JS PC,$TKINT ENABLE TKB INTR. 
-SBTTL TYPE PR 


OGRAM NAME 
33TYPE THE NAME 4 THE PROGRAM IF FIRST PASS 
INC a1 22FIR ST TIME? 
68$ ;BRANCH IF NO 
AMSENDAD ,a#42 33ACT~11? 
68$ CH IF YES 
TYPE -69$ YPE ASCIZ STRING 
3 VALUE FOR SOFTWARE suiTcn REGISTER 
ore WE RUNNING UNDER XXDP/ACT? 


SENV 41 

70$ CH IF YES 

SWR ,ASWREG $3 SOF TWARE SWITCH REG SELECTED? 
71$ CH IF NO 


I 
71$ 3:GET SOFT-SWR SETTINGS 
#1, $AUTOB 33SET AUTO-MODE INDICATOR 


68$ ;GET OVER THE ASCIZ 
<CRLF >#CVMNB-A hwCDI (DIGITAL IN) DIAGNOSTICA#<CRLF> 


ion ie * epmeate: x AUTO MODE 


[RUN LOGIC TEST 

;TEST IF RESTART 

7BR IF YES 

; INFORM OPERATOR ABOUT FRONT SWITCH 

;TEST IF TESTER 

;BR IF NOT AND TELL OPERATOR THE HEADER 
SETUP1 ; INFORM OPERATOR ABOUT TESTER 
TSTRO,$CDW1 ;LOAD TESTER DEFAULT FOR WRAPAROUND 


SEQ 0019 
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CVMNBA.P11 KEYBOARD COMMAND DECODER 


° KEYBOARD COMMAND DECODER 
ak $48: PE PRIMEO ;TELL THE OPER. THE TESTS AVAIL 
176634 BI #B1T6,a$TKS ENABLE TKB INTR. 

$PASS ;PRIME THE PASS COUNT 

SERTTL [PRIME THE TOTAL # OF ERRORS 

EVER INIT. THE UNIT TYPEOUT 
00 PC,FIXADR SENSURE BASE AND ge le oe IS LOADED 
015562 DOT S INDICATE THE REST POIN 
;GET OPER. INPUT 


002512 MOV a(SP)+,RUNIT 
000040 002512 #40 ,RUNIT 
000102 002512 MPB ao T 


BNE J NOT 
003252 BASEXC ; CHANGE INPUT BASE ADDRESS 
000107 002512 : #°G,RUNIT svest iF ‘=e 

2$ BR IF NOT 
[GET SWITCH VALUE 

BR MTEST1 AND RETYPE THE DOT 
000110 002512 3 ‘ zTEST IF IF aay 
000114 002512 Ae IF Le 

BNE 3$ BR IF NOT 


000002 001440 REMOVE DWARF CONNECTED INDICATOR 
002520 L ;RUN es TEST NON-WRAPAROUND 
000117 002512 : sTEST IF ‘O°’ 
4$ BR IF NOT 
003210 :GET OUTPUT BASE ADDRESS 
000124 002512 : —— - . 
5$ 7BR IF NOT 
010262 3RUN INPUT SWITCH TYPEOUT 
000127 002512 : 773. sTEST IF ‘Ww’ 


- BR IF NOT 
000002 001440 z INDICATE WRAPAROUND MODE 
002514 Hap SRUN LOGIC TEST 


001164 
TRY AGAIN 
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DIAGNOSTIC 


MACY11 27(654) 
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DETERMINE THE NUMBER OF MNCDI'S ON THE SYSTEM 


020220 
001244 


017075 
001202 


017117 
001202 


010054 
001202 
100000 
001526 
001526 


001202 
003010 


000001 
001530 
003424 


LOGICO: 
001126 LOGIC: 


000004 
1$: 
001126 


176342 
001202 


en SBDDAT 
MASKNM 

SUNIT 

poe a C 

VADDR, $BDDAT 

SUNIT 

SENV 

3$ 

al 2. @SWR 

#8. ,SUNIT 

1$ 


3$ 
(SP)+, (SP) + 
SUNIT 


3$ 

a4e 

3$ 

1 

SEOP 

MIOTRD ,ERRVEC 
#200 ,ERRVEC+2 
EVER 

4$ 

DWARF , 41 

6$ 


-FOUND1 
SUNIT ,-(SP) 


EOP 
SUNIT, EVER 
weit, EVER 


$ 
ame 
EVER, TEMP 
13 
SUNIT 
PC,FIXADR 
#81T0,MASKNM 
BADUNT 


~(SP) 
#TST1,-(SP) 


-SBTTL DETERMINE THE NUMBER OF MNCDI"S ON THE SYSTEM 
YPE, SETUP2 TELL 


OPER. THE CABLE MUST BE THERE 
GET" BASE ADDRESS 
CLR DEVICE MASK 
>CLR UNIT NUMBER 
;LOAD RETURN ADDRESS 
TEST IF ADDRESS EXISTS 
[UPDATE ay ADDRESS 
[UPDATE UNIT COUNT 
i TEST i. M0 NOT SIZE"’ 
:BR IF NO SIZEING 
TEST IF INHIBIT SIZING IS SET 
BR IF SET 


TEST IF MAX NUMBER 
[BR IF NOT 


SBR IF MAX 
sRESTORE STACK 


;TEST IF ANY EXIST 
[BR IF ANY ARE THERE 
J Bd XXDP CHAIN MODE 


YES 
BASE ADDRESS CAUSED A BUS TRAP 


TEST IF # HAS BEEN REPORTED 
:1F YES BRANCH 

;TEST IF IN TESTER MODE 

7BR IF TESTER 


:TELL OPERATOR # OF MNCDI'S FOUND 
;PUT # TO BE TYPED ON STACK 


FINISH MESSAGE 
“ANY UNITS 
“BR IF SOME 


REPORT EOP 
zSAVE THE # OF MNCDI'S FOR LATER 
SET “REPORTED # FLAG’ 


: TEST IF ANY HAVE GONE Al 
IF ALL ARE STILL THERE. 
SAVE FOR ERROR REPORT 
SEXISTING DEVICE FAILED TO RESPOND 
;RESET UNIT POINTER 


;FIX BUS ADDRESSES 

;LOAD DEVICE MASK 

RESET BAD UNIT INDICATOR 
LOWER PRIORITY LEVEL 0 


SEQ 0021 
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CVMNBA P11 DETERMINE THE NUMBER OF MNCDI'S ON THE SYSTEM SEQ 0022 


; SUBROUTINE TO FIX DEVICE ADDRESS AND BUS VECTORS 
001404 FIXADR: MOV #OCSR RO ; LOAD 


001250 MO $CDW1.R1 
1$: Ri. , (RO) + 


:UPDA SS_VALUE 
001414 — TEST _— WITH BUS ADDRESSES 


001244 $BASE ,R1 LOAD INITIAL i BUS ADDRESS 
: R1,(RO)+ ;LOAD THE ADDRESS 
R1 [UPDATE THE ADDRESS 
001430 MP RO,ADIDINV TEST IF AT ae 
2s BRANCH IF NO 
001240 $VECT1,R1 LOAD INITIAL T INPUT VECTOR 
R1,(RO)+ ; TOR 


(R1)+ 
001440 7 caaaaaatial 


; NO 
001466 AVECLST,RO ;GET ACTUAL VECTOR AREA 
obey ; VECTOR OFFSET POINTER 


; BASE 
(R1)+, (RO)+ ;ADD OFFSET 

001240 $VECT1, (RO) ; BASE 
(R1)+, (RO)+ ;ADD OFFSET 

001240 $VECT1, (RO) ; BASE 
(R1)+, (RO)+ ;ADD OFFSET 

001240 $VECT1, (RO) : BASE 
OFFSET 


001240 
001240 


BASE 
OF FSET 
BAS 


; E 
(R1)+, (RO)+ ;ADD OFFSET 

001240 $VECT1, (RO) ; BASE 
(R1)+,(RO)+ ;ADD OFFSET 

001240 $VECT1, (RO) BASE 
(R1)+, (RO)+ ;ADD OFFSET 


zALSO TO LOAD INTELLIGENT TRAP CATCHER 
MOV #250,R0 ; LOAD rot ADDRESS OF TRAP CATCHER 


OAD itLeca INST. 


0 ;LOAD itteca INST. 
(R1)+,(R1)+ ;BUMP R1 TWICE 
RO,.#1000 ; TEST iF DONE 
Fs ;BRANCH IF NOT 
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CVMNBA P11 DETERMINE THE NUMBER OF MNCDI'S ON THE SYSTEM SEQ 0023 


364 ; SUBROUTINE TO ASK THE OPERATOR FOR OUT ADRS 

365 003210 104401 BASEXD: TYPE 

366 003212 020320 ADROUT ;ASK FOR OUTPUT ADDR. 

367 003214 013746 001250 MOV $CDW1 ,-(SP) 3GET DEFAULT VALUE 

368 003220 104402 TYPOC :TELL OPER. 

369 003222 104401 020475 TYPE, ENDOUT D END 

370 003226 104413 RDOCT AND WAIT FOR INPUT 

371 003230 005726 TST ed ZWAS IT A <CR> FOR DEFAULT 

372 003232 001403 BEQ : YES- BRANCH 

373 003234 016637 177776 001250 MOV 5, Pink $CDw1 [NO-LOAD NEW ADDR. 

374 003242 004737 003010 1$: JSR PC ,FIXADR [LOAD NEW ADDRESSES 

ee 003246 000137 002300 JMP MTEST1 RETURN 

377 ; SUBROUTINE TO ASK FOR INPUT ADRS AND VEC 

378 003252 104401 BASEXC: TYPE 

379 003254 020364 ADRIN ;ASK FOR INPUT ADDR. 

380 003256 013746 001244 MOV SBASE ,~ (SP) GE T DEFAULT 

381 003262 104402 TYPOC ;TELL OPER. DEFAULT 

382 003264 104401 020475 TYPE, | ENDOUT ADD END 

383 003270 104413 RDOCT AND WAIT FOR INPUT 

384 003272 005726 TST (SP)+ WAS IT A <CR> FOR DEFAULT 

385 003274 001403 BEQ 1$ ; YES-BRANCH 

386 003276 016637 177776 001244 MOV -2(SP) , $BASE [NO-LOAD NEW ADDR 

387 003304 104401 1$: TYPE 

388 003306 020427 VECIN ;ASK FOR INPUT VECTOR 

389 003310 013746 001240 MOV $VECT1,-(SP) 3GET DEFAULT 

390 003314 104402 TYPOC TELL OPER THE DEFAULT 

391 003316 104401 020475 TYPE, ENDOUT ADD END 

392 003322 104413 RDOCT AND WAIT FOR INPUT 

393 003324 005726 TST (SP)+ zWAS IT A <CR> FOR DEFAULT 

394 003326 001403 BEQ 2s YES BRANCH 

395 003330 016637 177776 001240 MOV -2( ae SVECT1 LOAD NEW VECTOR 

396 003336 004737 003010 2s: JSR PC .FIXADR FIX ADDRESSES AND VECTORS 

a4 003342 000137 002300 JMP MTEST1 SAND RETYPE THE DOT 

ie -SBTTL SUBROUTINE TO HANDLE CONTROL C/G 

401 003346 105777 175572 CTRLCG: TSTB a$TKS Jags FLAG ? 

402 003352 100022 BPL 2 :BR F NOT 

403 003354 017737 175566 003422 MOV a$TKB,CTRCHA ;READ CHAR. 

404 003362 042737 177640 003422 BIC #177640,CTRCHA MASK OFF BITS 

405 003370 022737 000003 003422 CMP #3,CTRCHA TEST IF CONTROL C 

406 003376 001003 BNE 1$ BR IF NOT 

407 003400 005726 TST (SP) + CLEAN STACK 

408 003402 000137 002300 JMP MTEST1 AND RETYPE THE DOT 
003406 022737 000007 003422 1$: CMP #7,CTRCHA TEST IF CTRL G 

410 003414 001001 BNE 2s 

411 003416 104407 GTSWR GET SWITCHES 

412 003420 000207 2$: RTS PC ;EXIT 


3 EX 
413 003422 000000 CTRCHA: 0 CHAR. THE OPER TYPED 


L 
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CVMNBA .P VERIFY CORRECT I.D. CODE FOR MNCDI (IN-HOUSE TESTER) SEQ 0024 


RARE EEAAEAEEEEERAEERREAEAEAEEREKEREREKEEEEEEEEEEEEEREEEKEKEKEREEKEKKKE 


VERIFY CORRECT 1.D. CODE FOR MNCDI (IN-HOUSE TESTER) 


LEAR RARER EERE EREKEEEEREEKEEREEREEEERREREREKEEEREREERE 
TST1: 
oo : TEST i—_ TESTER’’ MODE 


st2 

aTSTR2 “ENSURE TESTER MODE 
@TSTR4,$BDDAT :READ I.D. VALUE 
#1776417,$BDDAT :MASK TO OTHER BITS 
#140,$GDDAT [LOAD EXPECTED I.D. VALUE 
SGDDAT . SBDDAT + COMPARE 


73BR IF SAME 
4 : INCORRECT I.D. VALUE FOR MNCDI 


FLARE EERREEEEREEEEERREEEREREREREKEREEEKEREEKERERERE 


z*TEST 2 VERIFY A MNCDI BUS ADDRESS RESPONSE 


J LRA REE E EERE ERE EEEEEEREEEEEEREREREERKEH 


TST2: 
#1$,ERRVEC ;LOAD BUS TRAP VECTOR 
a@ICSR ;TEST INPUT STATUS 
:TEST INPUT DATA REGISTER 
;TEST STIM. BUFFER REGISTER 
BR :;BR IF NO TIMEOUT 
1$: 5 BUS TIMEOUT WHEN REFERENCING THE MNCDI 
014570 MIOTRD,ERRVEC ;RESTORE TRAP 
000200 #200,ERRVEC+2 ;VECTOR 
007700 REMAIN ;CHECK FOR MORE UNITS 
014570 2s: #IOTRD,ERRVEC *RESTORE TRAP VECTOR 
000200 #200, ERRVEC+2 
FLARE ARERR EEEEREEREEEREKEEREREREEEREEEREEEKEKEREKREREER 
z*TEST 3 FLOAT A 1 ACROSS THE MNCDI STIMULUS BIT REGISTER 


J LRA EEEEEEEREEEREREEEEREEREEREEEEREEREKEKEEEEEEEKEEKKEEEK 


TST3: 
#B1TO, — ;LOAD EXPECTED BIT 
#1$,$LPAD ;LOAD LOOP ADDRESS 
1$: $GDDAT, aSBR ;LOAD MNCDI STIMULUS BIT REGISTER 
@SBR , $BDDAT ;READ MNCDI STIMULUS BIT REGISTER 
SGDDAT , SBDDAT ; COMPARE 
2s 7:BR IF EXPECTED 


6 ; MNCDI STIMULUS BIT oo FAILED TO HOLD A FLOATING 
SGDDAT CHANGE THE DAT 
1$ 7BR IF MORE DATA 








aR RRR RRR R RAAB 
tet A) ot ot ot td QQ 
a a a a id 
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FLOAT A 0 ACROSS THE MNCDI STIMULUS BIT REGISTER SEQ 0025 
FARRAR ERRAEEEEREREEEREREREEEREREREREREEEEERERERRERRRRERR 
:STEST 4 FLOAT 0 ACROSS THE MNCDI STIMULUS BIT REGISTER 
eerti titi ii iitiitt iii iititiittciiiiiititiii i ittti iti r ir) 
000004 TST4: SCOPE 
012737 000001 001442 MOV #8170, TEMP ZLOAD INITIAL BIT 
012737 003652 001106 MOV #1$,$LPADR ‘LOAD LOOP ADDRESS 
013737 001447 001124 1S: MOV TEMP, SGDDAT LOAD EXPECTED 
005137 001124 COM $GDDAT : COMPLEMENT 
013777 001124 175532 MOV SCDDAT .aSBR ‘LOAD MNCDI STIMULUS BIT REGISTER 
017737 175526 001126 MOV @SBR,$BDDA ;READ MNCDI STIMULUS BIT REGISTER 
023737 001124 001126 CMP $GDDAT, SBDDAT ARE 
001401 BEQ 2$ ::BR IF EXPECTED 
104006 ERROR 6 *MNCDI STIMULUS BIT REGISTER FAILED TO HOLD A FLOATING 0 
006337 001442 2s: ASL TEMP : E THE DATA 
001355 BNE 1$ [BR IF MORE DATA 
FLARE EREREEEEEREEEREKEEEKEEEKEREREEEREERERERERREEE 
T*TEST 5 ENSURE THAT ‘RESET’’ CLEARS THE MNCDI STIMULUS BIT REGISTER 
J LEAR RARAARREERREREREEEEEREEEREEEREREREREEEEEEEEEEREEREEEREEREEEE 
000004 TSTS: SCOPE 
012737 000040 001160 MOV #40, STIMES ::D0 40 ITERATIONS 
012777 177777 175466 MOV #-1.aSBR ;LOAD BITS TO BE RESET 
005037 001124 CLR $GDDAT ;CLEAR EXPECTED 
000005 RESET CLEAR THE DEVICE 
052777 000100 175172 BIS #B1T6,a$TKS “ENABLE TKB INTR. 
017737 175446 001126 MOV @SBR, $BDDAT “READ MNCDI STIMULUS BIT REGISTER 
001401 BEQ TST6 -;BR IF CLEARED ! 
ERROR 6 “MNCDI STIMULUS BIT REGISTER FAILED TO CLEAR WITH ‘RESET 
FEES UII SOUS ITI IIIS IO IOITISINI OOOO OIC 
*STEST 6 VERIFY BYTE OPERATION ON THE MNCDI STIMULUS BIT REGISTER 
TERESA IIIA IUIUIOITIOIIOI II III I 
000004 TST6: SCOPE 
012737 003774 001106 MOV #1$,SLPADR :LOAD RETURN ADDRESS 
012777 177777 175422 1$: MOV #-1.aSBR [LOAD MNCDI STIMULUS BIT REGISTER 
012737 000377 001124 MOV W377 SGDDAT TLOAD EXPECTED 
105077 175412 CLRB  aSBRi :CLEAR HIGH BYTE 
017737 175404 001126 MOV @SBR , $BDDAT “READ MNCDI STIMULUS BIT REGISTER 
023737 001124 001126 CMP $GDDAT , SBDDAT + COMPARE 
001404 BEQ 2$ ::BR IF SAME 
104006 ERROR 6 ‘CLEARING HIGH BYTE CHANGED LOW BYTE 
012737 004042 001106 MOV #2$,$LPADR [LOAD LOOP RETURN 
012777 177777 175354 2$: MOV #~1.aSBR sLOAD MNCDI STIMULUS BIT REGISTER 
012737 177400 001124 MOV #177400, $GDDAT *LOAD EXPECT TED 
105077 175342 CLRB = @SBR [CLEAR LOW BYTE 
017737 175336 001126 MOV @SBR , $BDDAT *READ MNCDI STIMULUS BIT REGISTER 
023737 001124 001126 CMP $GDDAT , $BDDAT * COMPARE 
001401 BEQ 3$ ;;BR IF SAME 
006 ERROR 6 *CLEARING LOW BYTE CHANGED HIGH BYTE 


3$: 
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17 TEST THAT BIT1 OF MNCDI STATUS REGISTER IS READ-WRITE SEQ 0026 


FERRARA ERREEREREREREREEEREEEREEREEERERERERREERREEEEKREARERRRRREEE 


s*TEST 7 TEST THAT BIT1 OF MNCDI STATUS REGISTER IS READ-WRITE 


J LEAR AERA EEEEREEEREKEEEREEERREKEERERRERREEERERREE 


TST?7: 
#B1T1,$GDDAT ;LOAD EXPECTED 
;LOAD BIT1 INTO MNCDI STATUS REGISTER 
;READ MNCDI STATUS REGISTER 
$GDDAT, S8DDAT sTEST THAT IT SET 
1$ 7 ;BR IF SET 
7 ;BIT1 OF MNCDI STATUS REGISTER FAILED TO SET 


SGDDAT ,@ICSR CLEAR THAT BIT 

@1CSR,$8DDAT “READ MNCDI STATUS REGISTER AGAIN 
SGDDAT , SBDDAT TEST THE BIT 

TST10 7:BR_ IF CLEARED 

7 ;BIT1 OF MNCDI STATUS REGISTER FAILED TO CLEAR 


FLERE RARER EKEREEEEREEEEEEEEEERREREREREREEREEREEEEHEEREEKEREE 


z*TEST 10 TEST THAT BIT2 OF MNCDI STATUS REGISTER IS READ-WRITE 


J LAA EER AERA EEEEREREEREEEEEEREEEREEEEEEERRRERREEEEK 


TST10: 
#B1T2,$GDDAT ;LOAD EXPECTED 
LOAD BITS INTO MNCDI STATUS REGISTER 
READ MNCDI STATUS REGISTER 
SCDDAT, - SBDDAT “TEST THAT IT SET 


;;BR_IF SET 
7 ;BIT2 OF MNCDI STATUS REGISTER FAILED TO SET 


SGDDAT ,@ICSR :CLEAR THAT BIT 

@1CSR,$B8DDAT READ MNCDI STATUS REGISTER AGAIN 
$GDDAT , SB8DDAT ; TEST THE BIT 

TST11 BR_IF CLEARED 

7 :B1T2 OF MNCDI STATUS REGISTER FAILED TO CLEAR 


EOC IEEE UIE IDIOTS IIOIUISI IIIS IOIIISISIOOITIEI ODIO IIIT 


TATEST 11 TEST THAT BIT3 OF MNCDI STATUS REGISTER IS READ-WRITE 


TIAA AAO EIEIO IIIS IOI IOOIOIOIUICISITIOI TIC III TOE 


TST11: 
#3B1T3,$GDDAT ;LOAD EXPECTED 
$SGDDAT,,@ICSR ;LOAD BIT3 INTO MNCDI STATUS REGISTER 
@ICSR,$BDDAT TREAD MNCDI STATUS REGISTER 
SGDDAT , SBDDAT ;TEST THAT IT SET 
1$ 3; 7BR_IF SET 
7 :BIT3 OF MNCDI STATUS REGISTER FAILED TO SET 


REEER RERRRRE 
ABLES KERBSRS 


175076 : SGDDAT ,@ICSR ;CLEAR THAT BIT 
001126 @1CSR,$BDDAT READ MNCDI STATUS REGISTER AGAIN 
001126 SODDAT, - SBDDAT ;TEST THE BIT 


7; ;BR_IF CLEARED 
;BIT3 OF MNCDI STATUS REGISTER FAILED TO CLEAR 
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TEST THAT BITS OF MNCDI STATUS REGISTER IS READ-WRITE 


fF RARER RAERERREREEERERREREERRERRERAERRRERRRERRERRRERERRREES 


s*TEST 12 TEST THAT BITS OF MNCDI STATUS REGISTER IS READ-wRITE 


SLUR RARAE REE EERE ERE EEREREREEREERERRAERERREEREREREEER 


TST12: 
#BIT4 ,SGDDAT ;LOAD EXPECTED 
LOAD BIT4 INTO MNCDI STATUS REGISTER 
;READ MNCDI STATUS REGISTER 
SGDDAT , SBDDAT STEST THAT IT SET 
1$ ‘ait IF SET 
7 ;BIT4 OF MNCDI STATUS REGISTER FAILED TO SET 


SGDDAT .@I1CSR :CLEAR THAT BIT 
@I1CSR,$BDDAT [READ MNCDI STATUS REGISTER AGAIN 
SGDDAT , SBDDAT STEST THE BIT 
TST13 ::BR IF CLEARED 
7 :BIT4 OF MNCD! STATUS REGISTER FAILED TO CLEAR 
LEAR AREER REREREEERREEEEEREEREREEKEEREEREEEREREREEKEEREREERERRREE 
TeTEST 13 TEST THAT BITS OF MNCDI STATUS REGISTER IS READ-WRITE 
SLA ERE REAR EEE REREREEEEEERREERREERERRERERERERE 


TST13: 


#B1TS,SGDDAT ;LOAD EXPECTED 

SGDDAT ,A@ICSR :LOAD BITS INTO MNCDI STATUS REGISTER 
@I1CSR,$BDDAT sREAD MNCDI STATUS REGISTER 

SGDDAT . S8DDAT :TEST THAT IT SET 

1$ 73BR IF SET 

7 :BITS OF MNCDI STATUS REGISTER FAILED TO SET 


SGDDAT ,@ICSR ;CLEAR THAT BIT 

aICSR,$BDDAT “READ MNCDI STATUS REGISTER AGAIN 
SGDDAT , SBDDAT ;TEST THE BIT 

TST14 7 ;BR IF CLEARED 

7 ;BITS OF MNCDI STATUS REGISTER FAILED TO CLEAR 


LIAR AAR ERERE EERE ERERRERKEREEKEEEREEREREREREE RR 


s*TEST 14 TEST THAT BIT6 OF MNCDI STATUS REGISTER IS READ-WRITE 


J CAAA RARER REE EERE EAE EERE EEEKEERERERE EERE 


TST14: 
#B1T6,$GDDAT LOAD EXPECTED 
+ LOAD BIT6 INTO MNCDI STATUS REGISTER 
;READ MNCDI STATUS REGISTER 
SGDDAT , SBDDAT :TEST THAT IT SET 
1$ :2BR IF SET 
;BIT6 OF MNCDI STATUS REGISTER FAILED TO SET 


SGDDAT ,@ICSR :CLEAR THAT BIT 

@I1CSR,$BDDAT *READ MNCDI STATUS REGISTER AGAIN 
001126 SGDDAT , $BDDAT :TEST THE BIT 

TST15 3; 7BR IF CLEARED 

7 :BIT6 OF MNCDI STATUS REGISTER FAILED TO CLEAR 
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TEST THAT BIT8 OF MNCDI STATUS REGISTER IS READ-WRITE 


FERRARA AERA EEE RRA ERE RERREREREREREREEEREREERERE ERE ES 


:*TEST 15 TEST THAT BIT8 OF MNCDI STATUS REGISTER IS READ-WRITE 


5 RRA REERRE EERE ARERR EERE ERE EERERREEER RARER ERE R RE 


CVMNB-A MNCDI 
CVMNBA.P1 


TST15: 
#B1T8,$GDDAT 


sopDar, - SBDDAT 
7 


SGDDAT ,AICSR 

@1CSR,$BDDAT 

S$GDDAT , SBDDAT 
ale 


;LOAD EXPECTED 
[LOAD BIT8 INTO MNCDI STATUS REGISTER 
[READ MNCDI STATUS REGISTER 

on IF 3; TEST THAT IT SET 


: SET 
;BIT8 OF MNCDI STATUS REGISTER FAILED TO SET 


;CLEAR THAT BIT 
TREAD MNCDI STATUS REGISTER AGAIN 
TEST THE BIT 

:;BR_IF CLEARED 

BIT8 OF MNCDI STATUS REGISTER FAILED TO CLEAR 


, neaeneneneqnengenanenqeeeqenesanegerannaenteaerqencqnteeeteces 


*STEST 16 


TEST THAT BIT9 OF MNCDI STATUS REGISTER IS READ-WRITE 


DHEA EEA ISISE EE EIIIITISIOIOIEI SII IOUT IIR IRI 


TST16: 
#B1T9,SGDDAT 


SGDDAT , SBDDAT 
" 


SGDDAT ,aICSR 
@1CSR,$BDDAT 
SGDDAT , SBDDAT 
ist T17 


;LOAD EXPECTED 

;LOAD BIT9 INTO MNCDI STATUS REGISTER 
READ MNCDI STATUS REGISTER 

STEST THAT IT SET 


:;BR IF SET 
;BIT9 OF MNCDI STATUS REGISTER FAILED TO SET 


;CLEAR THAT BIT 
[READ MNCDI STATUS REGISTER AGAIN 
;TEST THE BIT 
BR_IF CLEARED 
‘BITS OF MNCDI STATUS REGISTER FAILED TO CLEAR 


DEUS EIEIE EIEIO IIIS IIE IIOIOISISOSITIOO TOD IIIT 


TATEST 17 


TEST THAT BIT12 OF MNCDI STATUS REGISTER IS READ-WRITE 


RARER REAR ERREEEEEEKEEREREKEEEKEEEEEEEKEERERRERREEKEKEKEEKKEEKE 


isT17: 
#B1T12,$GDDAT 
SGDDAT ,a@ICSR 
SBDDAT 


aICSR, 
S$GDDAT . $8DDAT 
1$ 

7 

SGDDAT ,@ICSR 
@1CSR,$B8DDAT 


SGDDAT , $BDDAT 
pstee 


;LOAD EXPECTED 
:LOAD BIT12 INTO MNCDI STATUS REGISTER 
;READ MNCDI STATUS REGISTER 
: TEST THAT IT SET 
:7BR IF SET 
:BIT12 OF MNCDI STATUS REGISTER FAILED TO SET 


;CLEAR THAT BIT 
READ MNCDI STATUS REGISTER AGAIN 
an OF TEST THE BIT 


CLEARED 
3;B1T12 OF MNCDI STATUS REGISTER FAILED TO CLEAR 


SEQ 0028 
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P11 T20 TEST THAT BIT14 OF MNCDI STATUS REGISTER IS READ-WRITE SEQ 0029 
460 FERRARA ARERR AERA REAR ERE RARER RARER ERRRARRREREERRRERRRRERRE EER 
(4) T*TEST 20 TEST THAT BIT14 OF MNCDI STATUS REGISTER IS READ-WRITE 
(4) FERRARA EERE EERE RRR EERE AREER EERERRREREREEREREEH 
(3) 005026 000004 TST20: SCOPE 
(1) 005030 012737 040000 001124 MOV #81114, $GDDAT ;LOAD EXPECTED 
(1) 005036 013777 001124 174350 MOV SGDDAT.a@ICSR [LOAD BIT14 INTO MNCDI STATUS REGISTER 
(1) 005044 017737 174344 001126 MOV @1CSR,$BDDAT [READ MNCDI STATUS REGISTER 
(1) 005052 023737 001124 001126 CMP SGDDAT , SBDDAT [TEST THAT IT SET 
(2) 005060 001401 BEQ 1$ :;BR IF SET 
ap 005062 104007 ERROR 7 :BIT14 OF MNCDI STATUS REGISTER FAILED TO SET 
(1) 005064 043777 001124 174322 1$: BIC SGDDAT,@ICSR ;CLEAR THAT BIT 
(1) 005072 017737 174316 001126 MOV @ICSR,$BDDAT [READ MNCDI STATUS REGISTER AGAIN 
(1) 005100 023737 001124 001126 CMP SGDDAT , SBDDAT [TEST THE BIT 
(3) 005106 001001 BNE TST21 ::BR IF CLEARED 
(1) 005110 104007 ERROR 7 :BIT14 OF MNCDI STATUS REGISTER FAILED TO CLEAR 
461 LEAR ERE AER ERE RERE RE REE RERERREERERERRREREERERERERREEE RE 
(4) DeTEST 21 ENSURE THAT 'RESET’’ CLEARS THE MNCDI STATUS REGISTER 
(4) SLA RREEREERE REE RERER EERE REE REREREREREREREREREEER ERE 
(3) 005112 000004 TST21: SCOPE 
(2) 005114 012737 000040 001160 MOV #40, $TIMES 3:D0 40 ITERATIONS 
(1) 005122 012777 040426 174264 MOV #40426, aICsR ;LOAD BITS TO BE RESET 
(1) 005130 005037 001124 CLR $GD [CLEAR EXPECTED 
(1) 005134 000005 RESET SCLEAR THE DEVICE 
(1) 005136 052777 000100 174000 BIS #8116, a$TKS TENABLE TKB INTR. 
(1) 005144 017737 174244 001126 MOV @I1CSR,$BDDAT [READ MNCDI STATUS REGISTER 
(3) 005152 001401 BEQ TST22 ;;BR IF CLEARED 
(1) 005154 104007 ERROR 7 “MNCDI STATUS REGISTER FAILED TO CLEAR WITH ‘RESET"’ 
462 + eRRERRERERRERRERRERERERERRERERARERRRERERERERRERERERRAER ARERR 
(3) TRTEST 22 VERIFY HIGH BYTE OPERATION ON THE INPUT STATUS REGISTER 
(3) Peretitttititiiiitttiititi titi ieiiiitiisi iii epee te 
(2) 005156 000004 TST22: SCOPE 
463 005160 012777 040426 174226 MOV #40426, aICSR ;LOAD INPUT REG. BIT 
464 005166 105077 174224 CLRB = @ICSR1 [CLEAR HIGH BYTE 
465 005172 012737 000026 001124 MOV #8114 !BIT2'B1T1, SGDDAT LOAD EXPECTED 
466 005200 017737 174210 001126 MOV @1CSR,$BDDAT [READ INPUT STATUS REG. 
467 005206 023737 001124 001126 CMP SGDDAT , SBDDAT > COMPARE 
468 005214 001401 BEQ TST23 :iBR IF SAME 
469 005216 104007 ERROR 7 [CLERING HIGH BYTE CHANGED LOW BYTE 
471 LRA ER EERE EERE ERE REE EERE RE REE ERE REE ERER ERE 
(3) TRTEST 23 VERIFY LOW BYTE OPERATION ON THE INPUT STATUS REGISTER 
(3) RARER EREEEEEEKKEEKEEEKEEAEREKEEKEEKREEKE 
(2) 005220 000004 18123: SCOPE 
472 005222 012777 040426 174164 MOV #40426, a1CSR ;LOAD INPUT REG. 
473 005230 105077 174160 CLRB = @ICSR :CLEAR LOW BYTE 
474 005234 012737 040400 001124 MOV #40400, SGDDAT [LOAD EXPECTED 
475 005242 017737 174146 001126 MOV @ICSR,$BDDAT [READ INPUT STATUS REG. 
476 005250 023737 001124 001126 CMP SGDDAT , SBDDAT > COMPARE 
477 005256 001401 BEQ TST24 ::BR IF SAME 
478 005260 104007 ERROR 7 ZCLEARING LOW BYTE CHANGED HIGH BYTE 
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CVMNBA.P11 T24 VERIFY THAT MAINT. STROBE SETS "INPUT DATA READY'' 


FERRARA EERE EERE RE ERE EERE RERREERREEEEEEREREERRERREEREREEREE 
S*TEST 24 VERIFY THAT MAINT. STROBE SETS ‘‘INPUT DATA READY"’ 
RARER EAA EEEKEAKEEERREKEERERAAKEEKE 
18124: 
174124 C @ICSR ZENSURE CLEAR FLAG 
000200 #81T7,$GDDA [LOAD EXPECTED DATA 
004200 mBITEKT BIT. a@ICsR [GENERATE MAINT. STROBE 
@ICSR,SBDDAT [READ INPUT STATUS REGISTER 
S$GDDAT , SBDDAT [COMPARE RESULTS 
TST25 :;BR IF SAME 
;MAINT. STROBE FAILED TO SET ‘‘INPUT DATA READY"' 


RRR EEEEEREEEKEEEEKEEEEEREEKEEKERKKEEEEKEKERKEEREE 


S*TEST 25 VERIFY THAT "‘INPUT DATA READY'’ CAN BE WRITTEN TO A ZERO 


LEER EEREEEREERKEEEEKREEREREEER EE 


TST25: 


SGDDAT ;LOAD EXPECTED DATA 
MBITEXT,@ICSR ;GENERATE MAINT. STROBE 
@ICSR ;CLEAR DATA READY FLAG 
@1CSR,$BDDAT READ INPUT STATUS REGISTER 
SGDDAT , SBDDAT ; COMPARE 


3 7BR IF SAME 
;' "INPUT DATA READY’ FAILED TO BE WRITTEN TO A ZERO 


TST26 
7 


DISA ASCII IIDIOIIOISISISIIOISISIIOIOIIOIOIOIOI IID IOI TOI TOIT TO I TOIT TOIT TI TE 
s*TEST 26 VERIFY THAT “*INPUT DATA READY’* CAN BE CLEARED BY A 'RESET"’ 
SISA IEEE SIOIIOISIOINISIOISIOIIIOIIIOIOIIOIIOIIOICIOIOIIIOIIOI IODC TOI IOI IOI TOI TOI TE 
TST26: 
001160 #40, $TIMES 3:D0 40 ITERATIONS 
GDDAT ;LOAD EXPECTED DATA 
174006 MO ABITEXT,@ICSR ;GENERATE MAINT. STROBE 


173526 1S #BIT6, aSTKS ENABLE TKB INTR 
001126 @1CSR,$BDDAT READ INPUT STATUS REGISTER 
001126 SGDDAT , SBDDAT : COMPARE 

TST27 :7BR IF CLEARED 

7 ‘INPUT DATA READY'’ FAILED TO BE CLEARED BY "RESET" 


PERERA ERR KEE REEREEEEEKEKEKEEEEREEEEEEEKEEEEKEEREREREE KE 
ATEST 27 “INPUT DATA READY’ WILL NOT SET IF IN STIMILUS MODE AND NO SBR MATCH 
KRU A RAKE EKEEKREREKEEEKRAEEKERKEKEKEKEEERERKEKE 
1S127: 
173760 CL aSBR :CLEAR SBR REGISTER 
177777 #-1,aDIR 
000004 #BIT2,aICSR ILUS MODE 
004000 ;GENERATE MAINT. STROBE 
000004 ;LOAD EXPECTED 
173714 [READ STATUS 
001124 S$GDDAT, SBDDAT ; COMPARE 
TST30 :7BR IF CLEARED 
: INPUT STROBE SET INPUT READY WHEN IN STIMILUS MODE 
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CVMNBA .P'1 VERIFY THAT ‘OVERRUN ERROR" ) SEQ 0031 


SAAR EERE R EERE EERE EEREREERRERRERERERERERERERERR ER 


:*TEST 30 VERIFY THAT ‘OVERRUN ERROR'’ SETS 


TLE RARE RRR ERE RR E REE E EERE EERE ERE REREREEEEEEEEREEREEREERER 


TST30: 

#B1IT1S5'BIT7'BIT1,$GDDAT ;LOAD EXPECTED 
#BIT1,@ICSR ;SET STROBE MODE 
ABITEXT!BIT7, aICSR ; GENERATE MAINT. STROBE 
#81715 !BITEXT!BIT7,aICSR_ GENERATE MAINT. STROBE AGAIN 
@ICSR,$BDDAT ;READ INPUT STATUS REGISTER 

001126 SGDDAT , SBDDAT * COMPARE 
TST31 77BR IF SAME 

:' OVER RUN'' FAILED TO SET 


SLR RARER EERE RRR EEE EERE EERE REREREEKREEREREREREREE 


i*TEST 31 VERIFY THAT “OVERRUN ERROR’’ CAN BE WRITTEN TO A ZERO 


J LEAR RR EREREER REE EERE EEE EEE REE EERE EERRERRRREREE 


TST31: 
#BIT7'BIT1,$GDDAT ;LOAD EXPECTED VALUE 
#BIT1,aICSR :SET STROBE MODE 
#BITEXT'!BIT7,aICSR ;GENERATE MAINT. STROBE 
173574 #B1T15'BITEXT'BIT7,@ICSR" :GENERATE MAINT. STROBE AGAN 
@ICSR1 ;CLEAR HIGH BYTE OF THE INPUT STATUS REGISTER 
001126 @1CSR,$BDDAT [READ INPUT STATUS REGISTER 
001126 SGDDAT , SBDDAT > COMPARE 
TST32 ;:BR IF SAME 
7 :" OVERRUN ERROR’’ FAILED TO BE WRITTEN TO A ZERO 


LER EEE EERE EKER EERE EERE EREREKEERREEEREEE 

*STEST 32 VERIFY THAT ‘RESET*’ CLEARS ‘OVERRUN ERROR" 
THIET SOI IIISIIEIIIOISICIOIIISIOIOIOIUOIOIITITIOII OI IIIT ITI II 
TST32: 

001160 MO #40, $TIMES 3zD0 40 ITERATIONS 

SGDDAT st 

173526 #B1IT1,aICSR 

173520 ABITEXT,@ICSR 

173512 I ABITEXT,@ICSR : GENERATE MAINT. STROBE AGAIN 


173232 #B1T6,a$TKS ENABLE TKB INTR. 
001126 @1CSR,$BDDAT READ INPUT REGISTER 
001126 SGDDAT , $BDDAT ; COMPARE 


TST33 SAME 
RESET FAILED TO CLEAR ‘OVERRUN ERROR"* 
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CVMNBA .P1 T33 VERIFY INVERT DATA FUNCTION SEQ 0032 


RRA RARER EEREREEEEREEEEEEEEEEEREEEKEKEKEREEEEKEEREK 


SeTEST 33 VERIFY INVERT DATA FUNCTION 


LL ERA R ERE EEEE ERE EERE EREERERREEREREEREEREREEERRR EERE 


TST33: 

SGDDAT ; LOADEXPECTED 

173446 #BITDAT, = ;SET INPUT INHIBIT 
aDIR, SBDDAT TREAD INPUT 
$GDDAT, SBDDAT ; COMPARE 
1$ 77BR IF SAME 
7 ; INPUT INHIBIT FAILED TO INHIBIT INPUT 
re fg eB ipesecerti @ICSR 3SET INVERT DATA AND INPUT INHIBIT 
#-1,$GDDAT LOAD EXPECTED 
apr. , SBDDAT “READ INPUT 


;BR IF NON-ZERO 
c z INVERT DATA FUNCTION FAILED 
001126 : ep ehgmmpeay 3; COMPARE DATA 


SAME 
7 ; INVERT DATA - DATA PATH ERROR 


173360 : #BITDAT,@ICSR :SET INPUT INHIBIT 
SGDDAT ;CLEAR EXPECTED 
001126 aDIR,$BDDAT *READ INPUT 
001126 SGDDAT , $BDDAT >; COMPARE 
TST34 :7BR IF SAME 
7 s INVERT DATA FUNCTION OR INPUT INHIBIT FAILED 


SOU OI IOI III IR RRR ERR RR RRR RR 
TRTEST 34 VERIFY EACH BIT OF THE MNCDI INPUT DATA REGISTER CAN BE CLEARED 
IOC IUIO IIE ICICI IIUIOIIOII IIIS IOI II Ot i it 
18134: 
001110 MOV #1$,SLPERR 2 LOAD LOOP ADDRESS ON ERROR 
#8170, TEMP ;LOAD INITIAL BIT 
1$: #01 1DAT'B1T4!6175. aICSR ; LOAD INHIBIT INPUT AND INVERT DATA 
LOAD EXPECTED 
ZNAKE i 


zR INPU 
TEMP. aDIR : CLEAR THE INPUT BIT 
#8175 ,aICSR REM INVERT DATA BITOVE 
#B1IT1,aI1CSR ENABLE EXT. STROBE TO PREVENT DATA INPUT BEING 
aD IR, $BDD READ INPUT REG. 
SGDDAT , $BDDAT ; COMPARE 
2$ 33 SAME 
10 ; INPUT REGISTER BIT FAILED TO CLEAR 
TEMP SHIFT THE DATA 
1$ ; TRY MORE BITS 
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CVMNBA.P11 T35 VERIFY THAT "RESET’’ CLEARS MNCDI INPUT DATA REGISTER SEQ 0033 


_ nto — sata agent tap tei neater peta ay | tape Ee Ra 


s*TEST 35 VERIFY THAT ‘RESET’’ CLEARS MNCDI INPUT DATA REGISTER 


REE EEEAEEKEKEEAEKREAEEKEEEKEREREEREREEEEHEREKEKRE 


18135: 
0 #40,$ :D0 40 ITERATIONS 
004060 SBI TEXt ‘BiTS!BITA. @ICSR ; INVERT DATA AND INHIBIT INPUT 
173204 aDIR, TEMP ;READ REGISTER 
001124 of $GDDAT ;LOAD EXPECTED 
;CLEAR THE se REG. 

000100 #BIT6,a$TKS TENABLE TKB INT 
000004 #BIT2,aICSR ; INHIBIT REG. FROM BEING C’LOCKED 
173154 MOV aDpIR, $BDDA AT *READ REGISTER 

TST36 7 7BR IF CLEARED 

10 sRESET FAILED TO CLEAR INPUT REGISTER 


SL ARR ERREEREREEEEEREERERREEEERERRERRREREEEEREEEEEEEEREREEEEREEERE 


S*TEST 36 VERIFY THAT A 2ND STROBE PULSE WILL NOT CHANGE THE DIR DATA 


FLARE EEE ERE ERE EREERE EERE REEREREREREREE 


TST36: 
ert ee epee aICSR sDISABLE INPUTS, ENABLE INVERT DATA, EXT 
#BITEXT!BIT7,a@ICSR GENERATE MAINT. STROBE 
#BITS,@ICSR REMOVE INVERT DATA 
#BITEXT B17, aICSR SET MAINT. STROBE AGAIN 
#-1,SGDDAT ;LOAD EXPECTED DATA 
aviR, S$BDDAT ;READ REGISTER 
$GDDAT - SBDDAT >; COMPARE 
TST37 7 ;BR IF SAME 
10 :DATA READY FAILED TO INHIBIT 2ND 

; STROBE FROM CHAINING THE DIR 


xd and and oh 

NNNN 
—— WW 
and ond and anh a ancl auld 


sss 
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CVMNBA .P1 INTERRUPT TEST == VERIFY MNCDI INTERRUPTS VIA DATA READY VECTOR 


FERRARA REREERREREEEEEEERREERERAERREERERREERERRRERE ERE 


SSTEST 37 INTERRUPT TEST == VERIFY MNCDI INTERRUPTS VIA DATA READY VECTOR 


+ RERRERREAEEAEEEEAAEEEEAEEREREREEEKEEEEKEEREEAEREKEEEAAEEREREREEREKEKE 


18137: 
00 MO #64$ ,S$LPADR 
173060 64$: #1$,aDIDINV ;LOAD RETURN VECTOR 
173054 ty appa: ;LOAD RETURN LEVEL 


#10$,-(SP) 


173020 : #B1T6!BIT1,aICSR ;SET STROBE MODE 
173012 aH #BITEXT!BIT7,@ICSR GENERATE MAINT. STROBE 


172776 r) ;CLEAR STATUS 
*MNCDI INPUT DATA READY FAILED TO INTERRUPT 
7 RESET VECTOR 


022626 : (SP)+,(SP)+ ;CLEAN STACK 
005077 ; aI1CSR :CLEAR DEVICE 
013777 172772 DIDINS ,aDIDINV 

012777 172766 #4700, aDIDINS 


J LARA RARER EERE REE EERE EERE EERE EREEEKEKKKKKEKEERKEEEEE 


“&TEST 40 INTERRUPT TEST -- VERIFY MNCDI INTERRUPTS VIA OVERRUN ERROR 
LL AAR RRR RARE EEE EEE EE EEE ERE REE EERE RERREKERERERERE EEE 
S140: 

172760 #1$. aDIEINV :LOAD RETURN VECTOR 

172754 #200, aD IE INS “LOAD RETURN STATUS 


ros, -(SP) 


#B1T14!BIT1,aICSR ENABLE INTR. AND STROBE 
#BITIS!BITEXT!BIT7,a@ICSR GENERATE MAINT. STROBE 
#BITIS!BITEXT!BIT7,@ICSR ;GENERATE MAINT. STROBE AGAIN TO SET OVE 


aICSR :DISABLE INTR. 
11 [MNCDI FAILED TO INTERRUPT ON ‘OVERRUN ERROR'' 
2s ;;RESET VECTOR 


022626 : (SP)+, (SP)+ 7CLEAN THE STACK 
005077 172652 : aICSR CLEAR DEVICE 
013777 001436 DIEINS ,aDIE INV 

012777 no's Ciaacieates 


005046 -(SP 
012746 MO #11$,-(SP) 
000002 
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CVMNBA.P11 T40 INTERRUPT TEST == VERIFY MNCDI INTERRUPTS VIA OVERRUN ERROR SEQ 0035 


FLERE RRA EEEEE ERE EERE EEEREEREREEEEEERERRERERERRER 


s*TEST 41 VERFIY MODE 00 <= INPUT STROBE WILL SET THE INPUT DATA READY FLAG 


FERRARA EERE ERE RE ERE EER EREEEEREEREEREREEEEREREERERRREREEREEER 


TST41: 
TEST IF WRAP-AROUND OR TESTER MODE 
SBR IF YES 
:NO REPORT END OF PASS 
172610 1$: G 


M. REG. 
;CLEAR INPUT DATA — FLAG 
a0CsR ;CLEAR OUTPUT STATUS 
172556 25252, aD0R [WRITE TO THE OUTPUT DATA REG. 
1124 LOAD EXPECTED 
READ STATUS 
SGDDAT , SBDDAT ; COMPARE 
TST42 ;;BR IF SET 
: -- EXT. STROBE FAILED TO SET INPUT DAT 


LL RE ERE EEE REE REREEREEEREEKKERKERERRE KKK 
TEST 42 VERIFY MODE 01 == INPUT STROBE WILL SET THE INPUT DATA READY FLAG 
J LRA KEREREREEEEE EEE EERE EKER EKREEEEREEKEEEKEREREKEERRRERERREE 
TST42: 
177777 172530 #-1,aDIR ;CLEAR INPUT REG. 
172530 a@SBR :CLEAR STIM. REG. 
000002 172512 #B1IT1,aICSR :CLEAR INPUT DATA READY FLAG 
172476 a0csR ;CLEAR OUTPUT STATUS 
052525 172474 #52525.,aDOR WRITE TO THE OUTPUT DATA REG. 
000202 001124 #B1T7!BIT1,$GDDAT ;LOAD EXPECTED 
172466 @ICsR, SBDDAT ;READ STATUS 
001124 SGDDAT , SBDDAT >; COMPARE 
TST43 77BR IF SET 
sMODE 01 <-- EXT. STROBE FAILED TO SET INPUT DAT 


DISSE IISIOISIOIIIDISISIOIIIOISIIIIIIOIIIOIIOISIOISIIOI IOI IOI IOI TOI TOT TOT TOIT TOT TOI TOI TIO. 
Z*TEST 43 VERIFY MODE 10 <== INPUT STROBE WILL NOT SET INPUT DATA READY FLAG 
DUISSI SIAC SIOIIOIOIDISISIOISIOIISIIOIOIOIOIOIDIOIDIOIUIOIIIOICIOITIIIOI TOI IOI IOI TOI IOI TOT TOT TOI TE 
TST43: 
177777 + 172446 MO #-1,aDIR ;CLEAR INPUT REG. 
172446 @SBR 7CLEAR STIM, REG. 
000004 172430 #B1T2,aI1CSR [CLEAR INPUT Peas READY FLAG 
172414 a0csR ;CLEAR OUTPUT STATUS 
070707 172412 0707, aD0R [WRITE TO THE OUTPUT DATA REG. 
000004 ;LOAD EXPECTED 
172404 SREAD STATUS 
001124 SGDDAT , SBDDAT pny 
TST44 CLEARED 


:MODE 10 =~ EXT. STROBE SET INPUT DATA READY F_ 
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J LRA RAEAREREREREREEE ERE REE EEEREEEREERERREEREREEERERKERERREERREE 


S*TEST 44 VERIFY INPUT REPLY SETS OUTPUT DONE FLAG 
FLERE RRA EEREREEREREREREEREEERERERERREERRERERREREEE 
TST44: SCOPE 
172356 CLR aDOR ;CLEAR OUTPUT DATA 
000200 001124 MOV #B1T7,$GDDAT LOAD EXPECTED 
000001 001440 ‘a4 #1, DWARF : CHECK we IN TESTER MODE 
100000 001124 MOV #81T15,$GDDAT ;LOAD TESTER WRAPAROUND STATUS 
172322 1$: CLR a0 = CLEAR OUTPUT py FLAG 
004200 172324 MOV HBITEXT!BIT7,a@ICSR SET INPUT READY FLAG 
172320 CLR aICSR = CLEAR INPUT READY FLAG<GEN. INPUT REPLY> 
172304 001126 MOV a0CSR,$BDDAT *READ OUTPUT STATUS 
001124 001126 CMP SGDDAT, SBDDAT ; COMPARE 
BEQ TST45 77BR IF SET 
ERROR 2 ; INPUT REPLY FAILED TO SET OUTPUT DONE FLAG 
J LARA EEREREREEEREREEREEEREEEEEEREEEEREEREEEEEERERREEREEEE 
s*TEST 45 VERIFY THE MNCDO - WRAPAROUND - MNCDI DATA PATH 
J LARA ARERR REE EEEREREREEREEEEREREEEEREEEREREREREEREKREEER 
TST45: SCOPE 
100 001160 MOV #100, $TIMES 32:D0 100 ITERATIONS 
177777 172266 MOV #-1,aDIR ;CLEAR INPUT REG. 
172246 CLR a0csR CLEAR OUTPUT STATUS 
172252 CLR @ICSR zCLEAR INPUT STATUS 
001442 MOV #B1ITO, TEMP LOAD EXPECTED 
001442 001124 1$: MOV TEMP ,SGDDAT ;LOAD TYPEOUT EXPECTED 
001124 172224 MOV SGDDAT ,aDOR :LOAD OUTPUT DATA REG. 
172230 001126 MOV aDIR,$BDDAT ;READ INPUT DATA REGISTER 
001124 001126 CMP SGDDAT , SBDDAT ; COMPARE 
BEQ 2$ 72BR SAME 
ERROR 3 : INPUT DATA PATH ERROR 
001442 2s: ASL TEMP ; TRY NEXT BIT 
BNE 1$ :BR IF MORE BITS 


SEQ 0036 


. 2 
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CVMNBA .P1 146 VERIFY THE MNCDO = WRAPAROUND ~ MNCDI INVERTED DATA PATH SEQ 0037 


RRA EREEEEEREEAREEEKEEEEEREEEREEEEEERREEEKEEEKEKK 


T*TEST 46 VERIFY THE MNCDO = WRAPAROUND - MNCDI INVERTED DATA PATH 


RRA AERA EEEREEEEEEKEEEERERERKEKEEEEE 


TST46: 
001160 V #100, STIMES 3:D0 100° ITERATIONS 
172170 #-1,aDIR CLEAR INPUT me. 
a@a0csSR CLEAR OUTPUT STATUS 
000060 172152 #BITS'BIT4,aICSR LOAD INPUT STATUS <INVERT DATA> 
012737 001442 #B1TO, TEMP LOAD INITIAL BIT 


013777 172132 3 TEMP ,aDOR = LOAD OUTPUT DATA REG. 
aDIR,$8DDAT ;READ INPUT DATA REGISTER 
TEMP, $GDDAT :GET THE BIT 
SGDDAT INVERT EXPECTED INPUT DATA 
$GDDAT , $BDDAT > COMPARE 
2s $3 SAME 

3 ; INVERTED INPUT DATA PATH ERROR 


TEMP TRY NEXT BIT 
1$ 7BR IF MORE BITS 











DIAGNOSTIC 


147 
000004 
012737 


005077 
012737 


012737 


VERIFY I 


172056 
000001 
172044 
172054 
000004 
177777 
001442 


000200 
001442 


100204 
171774 
1124 


171652 
177777 
010000 


000404 
100604 


Mm 3 
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10 MODE THAT SBR AND INPUT BITS SET INPUT READY 


001442 


172036 
172034 


172032 


171654 
1442 


FERRARA ARERR RREREEREERRERERRREEEEREREREREEEERREEREEREEE 


s*TEST 47 VERIFY IN 10 MODE THAT SBR AND INPUT BITS SET INPUT READY 


RRR AREEEREEEKEKEKEEEERKEERREKEEKERAEERERREREEEEEKRKKKE 


TST47: SCOPE 
MOV #100, STIMES 32D0 100 ITERATIONS 
INPUT DATA READY FLAG 
LOAD A FLOATING 1 ACROSS THE SBR 
VERIFY THAT ONLY THE CORRECT BIT SET DATA READY 


aDOR 
#B81T0, TEMP LOAD INITIAL BIT 


aDOR ;CLEAR OUTPUT BITS 

@SBR [CLEAR SBR REG. 

#B1T2,aICSR ZCLEAR INPUT READY AND SET MODE 10 
#-1,aDIR :CLEAR INPUT REG. 


TEMP, @SBR ZLOAD SBR REG. 
#BIT?,aICSR *CLEAR INPUT READY BIT 
TEMP, aDOR [LOAD OUTPUT REG. 


vp High die, T2,$GDDAT ;LOAD EXPECTED STATUS 
aICSR,$BDDAT sREAD STATUS 

$GDDAT, SBDDAT z€ 

2$ 7 BR IF SET 


; INPUT DATA READY FLAG FAILED 
;TO SET IN MODE 10 <STIMILUS MODE> 


z;NOW LOAD ALL BITS EXCEPT THE FLOATING BIT AND ENSURE INPUT DATA READY DOES NOT SET 
2s: MOV TEMP, TEMP 1 COPY EXPECTED 


[USE REVERSE PATTERN 

[CLEAR OUTPUT REG. 
-1,aDIR :CLEAR INPUT REG. 
#B81T15!BIT7,a@ICSR :CLEAR INPUT DATA READY 
#B1T2,$GDDAT ;LOAD EXPECTED 


TEMP1 ,@DOR ;LOAD ALL OTHER DATA BITS 
@1CSR,$BDDAT READ INPUT STATUS 
SGDDAT , SBDDAT ; COMPARE 

3$ 7;BR IF CLEARED 


2 ; INPUT DATA READY FLAG SET IN ERROR 
{UNEXPECTED | SBR BIT SET INPUT DATA READY 
3$: a i Y NEXT BIT 


‘BR IF MORE BITS 
FLARE REAR EEEREEERREREREEEKEERKEEEEEREREEEEREREEEREKKK 
;*TEST 50 TEST THE TRANSITION ENABLE AND TRANSITION DETECTION 
RRR EERE EERE EEE EEE ERE 
18150: 
@DOR 
#-1,aDIR :CLEAR INPUT REGISTER 
#B1T12, TEMP LOAD 
#8178 'B SET ST READY, é 
Wits 181 1808117 'BIT2, SGDDAT =; LOAD EXPECTED STATUS 
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T50 TEST THE TRANSITION ENABLE AND TRANSITION DETECTION SEQ 0039 


171620 1$: #81T15!BIT7,aICSR :CLEAR READY 
622 TEMP, aSBR [LOAD STIMULUS REG. 
EMP, aDOR [LOAD INPUT REG. <VIA OUTPUT REG.> 
@ICSR,$BDDAT TREAD INPUT STATUS 
SGDDAT , SBDDAT * COMPARE 
2$ ::BR IF SAME 
ERROR 2 RANSITION ENABLE OR TRANSITION TO A ONE FAILED 
“NOW REMOVE THE TRANSITION DATA BIT cms SHOULD CAUSE THE INPUT READY FLAG TO SET AGAIN 
2s: MOV #-1,aDIR ZCLEAR INPUT REG 
weitisiBll7. @ICsR *CLEAR INPUT READY FLAG 
EMP, aDOR SREMOVE THE INPUT 
THIS SHOULD CAUSE THE TRANSITION TO A ZERO 
a@I1CSR,$BDDAT READ INPUT STATUS 
$GDDAT , SBDDAT = COMPARE 
3$ ; BR IF SET 
2 > TRANSITION TO A ZERO FAILED 
3$: TEMP *TRY ANOTHER BIT 
1$ “BR IF YES 
REMAIN: 


LAA RRA EEEEREEKREEEREREEEREREREREEEREEREEEREREKKE 


s*TEST 51 DETERMINE IF MORE MNCDI'S REMAIN TO BE TESTED 


SAAR AREER RERERERREEE EEE EERE EEKRERREREKREEE 


TSTS1s 
#1,S$TIMES ::D0 1 ITERATION 
SUNIT ;UPDATE UNIT NUMBER 
SUNIT, EVER :TEST IF MORE 
3$ ;2BR IF NOT 
#OCSR,R1 ;LOAD POINTER TO OUTPUT STATUS ADDRESS 
VADDRO, (R1)+ ;UPDATE OUTPUT BUS ADDRESS 
R1,4D0R1+2 zTEST IF DONE 
1$ [BRANCH IF NOT 
VADDR, (R1)+ ;UPDATE INPUT ADDRESS 
R1,4SBR1+2 sTEST IF DONE 
2s ‘BRANCH IF NOT 
MASKNM ;UPDATE ERROR fuse BIT 
PC ,WHI CHU SDE TERAINE | UNIT 
UNI TBD ,RO GET UNIT 
RO 7 MAK 
VECLST(RO) ,.DIDINV GET VALUE 
bt Bs 101 NS sMAKE OTHER VALUES 
DID INV.DIEINY 
#4 ,DIEINV 
DIDINV,DIEINS 
#6,DIEINS 
STSTNM sRESET TEST NUMBER 
TST1 sTEST NEXT UNIT 





NON A eS eS SS SS SS 


Ct ae he i a 
el ee ee ed ed ed ed 
ee Nee ee ee le ee ee 


CoCo“ 
Vn 
woow 


010174 
010176 
010204 


010256 


DIAGNOSTIC 
END OF PASS ROUTINE 


377 
042412 
051501 


000100 
001112 
017600 
001112 
000001 


017627 
001530 


010156 
003346 
002520 
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001176 


8 


0421 
0201 


No 
WO. 


170740 


001460 


SEQ 0040 
-SBTTL END OF PASS ROUTINE 


DASARI IIE OOO II OIIIOIIUUIIIUIUID III OE DEE ttt ttt 
" * INCREMENT THE PASS NUMBER ($PASS) 
[*TYPE "END PASS #XXXXX'' (WHERE XXXXX IS A DECIMAL NUMBER) 
;*IF THERES A oT noe GO TO IT 
:*IF THERE ISN'T JUMP TO EXTMSG 


SEOP: 
SCOPE 
CLR STSTNM oy THE TEST NUMBER 
CLR STIMES ;ZERO THE NUMBER OF ITERATIONS 
INC SPASS ; INCREMENT THE PASS NUMBER 
8IC #100000, $PASS = DON" T ALLOW A NEG. NUMBER 
DEC (PC) + 3;LOOP? 
SEOPCT: .WORD 1 
BGT SDOAGN ssTes 
MOV (PC) +,a(PC)+ ; RESTORE COUNTER 
SENDCT: .WORD 1 
SEOPCT 
TYPE ~ SENDMG ;TYPE “END PASS #°° 
MOV SPASS ,- (SP) + SAVE SPASS FOR TYPEOUT 
TYPDS :260 TYPE--DECIMAL ASCII WITH SIGN 
TYPE ~SENULL 3: TYPE A NULL CHARACTER 
$GET42: MOV a¥#42,R0 ::GET MONITOR ADDRESS 
BEQ SDOAGN 7 BRANCH IF NO MONITOR 
RESET 3;CLEAR THE WORLD 
SENDAD: JSR PC, (RO) ::GO TO MONITOR 
NOP 72 SAVE ROOM 
NOP 32FOR 
NOP 3ZACT11 
SDOAGN: 
JMP a(PC)+ 7 ;RETURN 
SRTNAD: .WORD EXTMSG 
SENULL: .BYTE NULL CHARACTER STRING 


-1,-1,0 sy 
SENDMG: .ASCIZ <15><12>/END PASS #/ 


EXTMSG: BIS #BIT6,a$TKS ENABLE TKB INTR. 
TST SERTTL TEST IF ANY ERRORS 
BEQ 1$ BR IF NONE 
TYPE -ERRTOT TYPE TOTAL ERRORS MESSAGE 
MOV SERTTL,~(SP) [PUSH TOTAL ERRORS ON STACK 
TYPDS TYPE IT 
CMP #1 ,MASKNM 7 TEST IF MULTIPLE 
BEQ 1$ 7BR IF NOT 
TYPE -MESGD TYPE BAD UNITS 
MOV BADUNT , = (SP) [PUSH BAD UNITS ON STACK FOR TYPE OUT 
TYPBN TYPE IT 
1$: TYPE, $ENULL SENSURE ALL TEXT GOT TYPED 


JSR PC,CTRLCG TEST FOR CTRL C/G 
LOGIC 





CVMNB-A MNCDI 
CVMNBA P11 


893 


010352 
360 


DIAGNOSTIC 


003010 
104401 010350 
0050 171112 


003346 
105777 171074 
017746 171072 


104401 020502 
017746 171060 


104401 020506 


015 
040527 052111 
020107 75 


046440 
020105 052502 
012 


MACY11 27(654) 


171110 


052123 
046125 
052124 


000 


DIDATA: 


1$: 
23: 


WAITO: 
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MNCDI TEST MODULE SWITCH TYPEOUT LOOP 


-ASCII 


-BYTE 
- EVEN 


MNCDI TEST MODULE SWITCH TYPEOUT LOOP 


#STACK, SP ;LOAD THE STACK POINTER 
PC-FIXADR 3FIX DEVICE ADDRESSES 
aICSR CLEAR INPUT STATUS 
#-1,aDIR :CLEAR INPUT DATA REGISTER 
PC,CTRLCG TEST IF CTRL C/G 
— ;WAIT FOR INPUT READY 
aDIR,-(SP) ;GET INPUT DATA 

TYPE THE OCTAL VALUE 
ADASH ; TYPE A DASH 
aDIR,-(SP) ;GET INPUT DATA AGAIN 

TYPE THE BINARY VALUE 
al TYPE A CR-LF 


15,12 
\WAITING FOR OPERATOR TO ACTIVIATE MNCDI (D/1)\ 


\ TEST MODULE BUTTON\ 


15,12.0 


SEQ 0041 
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CVMNB-A MNCDI —— DIAGNOSTIC MACY11 27(654) 
CVMNBA.P11 TTY INPUT ROUTINE SEQ 0042 
898 .SBTTL TTY INPUT ROUTINE 
FERRARA RRR E ERR ER ERR RREE RE ERE ERE REE ARERR EERR EEE 
“ENABL LSB 
010456 000000 $TKCNT: .WORD 0 : NUMBER OF ITEMS IN QUEUE 
010460 000000 $TKQIN: .WORD 0 +: INPUT POINTER 
010462 $TKQOUT: .WORD 0 *:QUTPUT POINTER 
010464 000040 $TKQSRT: .BLKB 32. >:TTY KEYBOARD QUEUE 
010524 $TKOEND=. 
:*TK INITIALIZE ROUTINE 
**THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
:®SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 
*CALL: 
* JSR PC, $TKINT 
te RETURN 
010524 005037 010456 $TKINT: CLR $TKCNT ZCLEAR COUNT OF ITEMS IN QUEUE 
010530 012737 010464 010460 MOV #STKOSRT ,STKQIN 3 IMOVE THE STARTING ADDRESS OF THE 
010536 013737 010462 MOV $TKQIN,$TKQOUT ::QUEUE INTO THE INPUT & OUTPUT POINTERS. 
010544 012737 010574 000060 MOV WSTKSRV,@A#TKVEC :: INITIALIZE THE KEYBOARD VECTOR 
010552 012737 000200 000062 MOV #200, a#TKVEC+2 33 BR LEVEL 4 
560 005777 170362 TST a$TkB SCLEAR DONE FLA 
010564 012777 000100 170352 MOV #100, a$TKS TENABLE TTY KEYBOARD INTERRUPT 
010572 000207 RTS PC RETURN TO CALLER 


3*TK SERVICE ROUTINE 

*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 

;*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 

:*I1T IN THE QUEUE. 

:*IF THE CHARACTER IS A ‘‘CONTROL~C"' (“C) STKINT IS CALLED AND 

: *UPON RETURN EXIT IS MADE TO THE ‘‘CONTROL-C’’ RESTART ADDRESS (MTEST1) 


mee ee ee ek me ee me ee kk ek ek ke ed kd ed ed od od od 8g 2 ot ot ot a SS ff) 


rr RR RR RRR ARR ARRRA RAE AA AAA BBB BBB BBB BEEBE BQ OQLEOQ_EOkO&_4O_OQ_OOQ_OQ_Oa_L LX 
ee ee ee ee ee titi ttt ite ee eee 


010574 


117746 


022737 
001004 
104401 
pol ee 


00045 
021627 


170346 
177600 
000003 


011744 
010524 
002300 
000007 
000176 
000040 
011740 


000023 


$TKSRV: “st 


1$: CMP 


23: 


3$: CMP 


@$TKB,-(SP) 
#*(177, (SP) 
(SP) #3 

1$ 

/SCNTLC 

PC, $TKINT 
(SP) + 


MTEST1 
i) ae 


2 
ASWREG, SWR 
6$ 


#32. ,.$TKCNT 
3$ 


, SBELL 
(SP) + 


5$ 
(SP) ,#23 


;zPICKUP THE CHARACTER 
zz STRIP THE JUNK 

:zI1S IT A CONTROL C? 

; BRANCH IF NO 

> TYPE A CONTROL-C (“*C) 
zz INIT THE KEYBOARD 

7 :CLEAN UP STACK 
7z;CONTROL C RESTART 
:zI1S IT A CONTROL G? 

7 BRANCH IF NO 

:21S SOFT-SWR SELECTED? 
3:G0 TO SWR CHANGE 


22 THE QUEUE FULL? 
CH IF NO 


: RING THE TTY BELL 
73CLEAN CHARACTER OFF OF STACK 


sEXIT 
‘718 IT A CONTROL~S? 
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CVMNBA P11 TTY INPUT ROUTINE SEQ 0043 
(1) 010672 001021 BNE 32$ ;BRANCH IF NO 
(1) 010674 005077 170244 CLR asTKS «DISABLE TTY KEYBOARD INTERRUPTS 
(1) 010700 005726 TST (SP) + Sa CHAR OFF STACK 
(1) 010702 105777 170236 31$: TSTB asTKS WAIT FOR A CHAR 
(1) 010706 100375 BPL 31$ SLOOP UNTIL ITS THERE 
(1) 010710 117746 170232 MOVB a$TKB,-(SP) SIGET THE CHARACTER 
(1) 010714 042716 177600 BIC #*(177, (SP) 77MAKE IT 7-BIT ASCII 
(1) 010720 022627 000021 CMP (SP)+,421 31S IT A CONTROL-Q? 
(1) 010724 001366 BNE 31$ «BRANCH IF NO 
(1) 010726 012777 000100 170210 MOV #100, a$TKS 7 REENABLE TTY KEYBOARD INTERRUPTS 
(1) 010734 000002 RTI 7 RETURN 
(1) 010736 005237 010456 32$: INC $TKCNT 3: COUNT THIS CHARACTER 
(1) 010742 021627 000140 CMP (SP) ,4140 2215 IT UPPER CASE? 
(1) 010746 002405 BLT 4 ;BRANCH IF YES 
(1) 010750 021627 000175 CMP (SP) ,4175 1S IT A SPECIAL CHAR? 
(1) 010754 003002 BGT 4$ eet IF YES 
(1) 010756 042716 000040 BIC #40, (SP) MAKE IT UPPER CASE 
(1) 010762 112677 177472 4$: MOVB (SP)+, a$TKQIN + SAND PUT IT IN QUEUE 
(1) 010766 005237 010460 INC STKQIN 7 UPDATE THE POINTER 
(1) 010772 023727 010460 010524 CMP STKOIN. WSTKQEND ::GO OFF THE END? 
(1) 011000 001003 BNE 5$ 5% CH IF NO 
(1) 011002 012737 010464 010460 MOV ASTKQSRT ,STKQIN + SRESET THE POINTER 
A 011010 000002 5$: RTI 7 RETURN 
(2) LL RAR RARER ARERR EEKEERERERE ERE EEEEREKREREREEERRERKEEREEE REE REE 
(1) s*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
(1) + *ROUT INE IS ENTERED FROM THE TRAP HANDLER, WILL 
(1) s*SERVICE THE TEST FOR CHANGE IN SOFTWARE suITcH REGISTER TRAP 
(1) :*CALL WHEN OPERATING IN TTY INTERRUPT MODE. 
(1) 011012 022737 000176 001140 $CKSWR: CMP ASWREG, SWR 71S THE SOFT-SWR SELECTED 
(1) 011020 001124 BNE 15$ SIEXIT IF NOT 
(1) 011022 105777 170116 TSTB as$TKSs 1S A CHAR WAITING? 
(1) 011026 100121 BPL 15$ i31F NOT, EXIT 
<1) 011030 117746 170112 MOVB a@$TKB,- (SP) YES 
(1) 011034 042716 177600 BIC #*(177, (SP) + SMAKE IT 7-BIT ASCII 
(1) 011040 021627 000007 CMP (SP), a7 cit? IT A CONTROL-G? 
$44 011044 001300 BNE 2$ :IF 4 ies IT IN THE TTY QUEUE 
(1) 
(2) RARER EEERAEKAEKEAARAEEERKEEKRAKEREEAREEKERAEREKEEE 
(1)  * CONTROL 1S PASSED TO THIS POINT FROM EITHER THE TTY rer wy SERVICE 
(1) ;*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A 
(1)  *CONTROL-G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 
(1) 011046 123727 001134 000001 6s: CMPB $AUTOB, #1 2 GARE WE RUNNING IN AUTO-MODE? 
(1) 011054 001674 *  BEQ 2$ ; BRANCH IF YES 
(1) 011056 005726 TST (SP) + ZCLEAR CONTROL-G OFF STACK 
(1) 011060 004737 010524 JSR PC,STKINT 3 FLUSH THE TTY INPUT QUEUE 
(1) 011064 005077 170054 CLR asTKS :DISABLE TTY KEYBOARD INTERRUPTS 
3 011070 112737 000001 001135 MOVB #1,$INTAG *:SET INTERRUPT MODE INDICATOR 
(1) 011076 104401 011756 TYPE ,SCNTLG :zECHO THE CONTROL-G (*G) 
(1) 011102 104401 011763 SGTSWR: TYPE - SMSWR +: TYPE CURRENT pe ite 
(2) 011106 013746 000176 MOV SWREG,-(SP) 7 SAVE SWREG FOR TYPEOU 
(2) 011112 104402 TYPOC :3GO TYPE--OCTAL ASCLTTALL DIGITS) 


CVMNB-A MNCDI 
CVMNBA . P 


oOoCooCCOCOCOOoO COO ZTO00oO 
abhoisnwa@ababat ahead ahabadadad 
teobbtababebeiabah ata aiatabab ab 
N~N Wis 


me ke ek ek el ee ek ee kk dd nd dk hd ad od 2 ot ot ot 2 th HH I 
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DIAGNOSTIC 


MACY11 27(654) 


TTY INPUT ROUTINE 


ened] 011774 


170914 
117746 170010 
042716 177600 
021627 000003 
011744 
000006 
001135 
000100 
002300 
000025 
011751 
000006 


000002 
177776 
001164 


TYPE 


19$: 
7$: 


000001 
167746 


167674 


000001 
167652 


17$: 


18$: 
BR 
-DSABL LSB 


- SMNEW 
-(SP) 
-(SP) 
a$TKS 
7$ 


@$TKB,-(SP) 
#*C177, (SP) 
(SP) #3 

9$ 

/SCNTLC 

#6, SP 
SINTAG, #1 
8$ 

#100, a$TKS 
MTEST1 


(SP) ,#25 
10$ 
-$SCNTLU 
6 


e 


19$ 


(SP) ,4#15 
16$ 

4(SP) 

11$ 

2(SP) ,aSwWR 
#6,SP 

- $CRLF 
ema 
#100, a$TKS 


PC ,STYPEC 
(SP) ,#60 


18$ 

(SP) ,467 
18$ 

#60, (SP)+ 
2(SP) 


2(SP) 

2 (SP), (SP) 
7$ 

.SQUES 

20$ 
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;zPROMPT FOR NEW SWR 


::1F NOT TRY AGAIN 


:-P1CK UP CHAR 
7¢MAKE IT 7-BIT ASCII 


ei IT A_CONTROL-C? 


CH IF NOT 
EYES, ECHO CONTROL-C (“C) 
: CLEAN UP STACK 


«TALLOW TTY KEYBOARD INTERRUPTS 
72 CONTROL-C RESTART 


3318 IT A CONTROL-U? 
; BRANCH IF NOT 
<2 oe ECHO CONTROL-U (“U) 
E PREVIOUS INPUT 
=:LET'S TRY IT AGAIN 


2iIS IT A <CR>? 

; CH IF NO 
7:YES, IS IT THE FIRST CHAR? 
$3 CH IF YES 


AND <LF> 

TTY KBD INTERRUPTS? 
F NOT 

TTY KBD INTERRUPTS 


YES 

IF YES 
; ASCII 
IIs a te CHAR 
:3NO. SHIFT PRESENT 
3; CHAR OVER TO MAKE 
3 _ ROOM FOR NEW ONE. 
SIKEEP COUNT OF CHAR 
7:SET IN NEW CHAR 
32:GET THE NEXT ONE 


si TYPE ?<CR><LF> 
sc: SIMULATE CONTROL-U 





fect nang A ga KEYBOARD INTERRUPTS? 
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CVMNBA.P11 TTY INPUT ROUTINE SEQ 0045 
"3 
(35 PLR EERE REE EEREEE EERE RRA R ERRATA EER 
Nt Sab ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
(1) 7 *CALL: 
(1) 3* RDCHR 3:GET A CHARACTER FROM THE QUEUE 
(1) 3* RETURN HERE 3; CHARACTER IS ON THE STACK 
1) ;* 7;WITH PARITY BIT STRIPPED OFF 
(1) 3 
(1) 
(1) 011354 011646 SRDCHR: MOV (SP) ,=(SP) ;2PUSH DOWN THE PC AND 
(1) 011356 016666 000004 000002 MOV 4(SP) ,2(SP) 72 THE PS 
(1) 011364 005066 000004 CLR 4(SP) 3:GET READY FOR A CHARACTER 
(2) 011370 005046 CLR -(SP) 77PUT NEW PS ON STACK 
(2) 011372 012746 011400 MOV #64$ ,-(SP) ;3PUT NEW PC ON STACK 
(2) 011376 000002 RTI ;;POP NEW PC AND PS 
(2) 011400 64$: 
(1) 011400 005737 010456 1$: TST STKCNT 7zWAIT ON A CHARACTER 
(1) 011404 001775 BEQ 1$ 
(1) 011406 005337 010456 DEC STKCNT est THE COUNTER 
(1) 011412 117766 177044 000004 MOVB @$TKQOUT ,4 (SP) 2 GET ONE CHARACTER 
(1) 011420 005237 010462 INC $TKQOUT UPDATE THE POINTER 
(1) 011424 023727 010462 010524 CMP STKQOUT .#STKQEND “32DID IT GO OFF OF THE END? 
(1) 011432 001003 BNE 2s CH IF NO 
(1) 011434 012737 010464 010462 MOV #STKOSRT ,STKQOUT’ T;RESET THE POINTER 
(1) 011442 000002 2s: RTI 7 ;RETURN 
(2) LL RARER AAR EEE EE EE EERE ERE RARER ERE REAR EREERE  e 
He wore ROUTINE WILL INPUT A STRING FROM THE TTY 
3 *CALL: 
(1) 3* RDLIN ; INPUT A STRING FROM THE TTY 
(1) 3* RETURN HERE  PADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
i 3* 3; TERMINATOR WILL BE A BYTE OF ALL O'S 
<1) 011444 010346 SRDLIN: MOV R3,~-(SP) 72SAVE R3 
(1) 011446 005046 CLR -(SP) 7;CLEAR THE RUBOUT KEY 
(1) 011450 012703 011700 1$: MOV ASTTYIN,R3 3:GET ADDRESS 
(1) 011454 022703 011740 2s: CMP AMSTTYIN+32.,R3  ;;BUFFER FULL? 
(1) 011460 101456 BLOS 4$ : ¢BR IF YES 
(1) 011462 104411 RDCHR O READ ONE CHARACTER FROM THE TTY 
(1) 011464 112613 MOVB (SP) +, (R3) T:GET CHARACTER 
(1) 011466 122713 000177 10$: CMPB #177, (R3) 3771S 1T A RUBOUT 
(1) 011472 001022 BNE 5$ ;:BR IF NO 
(1) 011474 005716 TST (SP) 3218S THIS THE FIRST RUBOUT? 
(1) 011476 001007 BNE 6$ ;:BR_IF NO 
(1) 011500 112737 000134 011676 MOVB a'\ 9S 7; TYPE A BACK SLASH 
(1) 011506 104401 011676 TYPE ‘ 
(1) 011512 012716 177777 MOV #~1, (SP) 23SET THE RUBOUT KEY 
(1) 011516 005303 6$: DEC R3 ; ;BACKUP BY ONE 
(1) 011520 020327 011700 CMP R3,ASTTYIN STACK EMPTY? 
(1) 011524 103434 BLO 4$ BR IF YES 
(1) 011526 111337 011676 MOVB (R3) ,9$ i SETUP TO TYPEOUT THE DELETED CHAR. 
(1) 011532 104401 011676 TYPE .9$ 3:GO TYPE 
(1) 011536 000746 BR 2s 7:GO READ ANOTHER CHAR, 
<1) 011540 005716 5$: TST (SP) 7; ;RUBOUT KEY SET? 
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7$ ;7BR_IF NO 
000134 011676 #'\,9$ 3zTYPE A BACK SLASH 


011676 9 
(SP) 7-CLEAR THE RUBOUT KEY 
000025 : alae 22 9 A CTRL U? 


BNE IF 
011751 - on :i TYPE A CONTROL ‘U"’ 
000022 : eae 


- IF NO 
(R3) >:CLEAR THE CHARACTER 
001165 “SCRLF +: TYPE ACR & ‘LF 
011700 STTYIN +: TYPE THE INPUT STRING 
BR 2$ ::GO PICKUP ANOTHER CHACTER 
001164 : | SQUES *: TYPE A 
BR i$ T= CLEAR THE BUFFER AND LOOP 
011676 : (R3) ,9$ +:ECHO THE CHARACTER 
011676 ; 
000015 #15, (R3)+ :3CHECK FOR RETURN 
2$ LOOP IF NOT RETURN 
177777 =1(R3) 22 CLEAR RETURN (THE 15) 
001166 /SLF TYPE A LINE FEED 
(SP) + “CLEAN RUBOUT KEY FROM THE STACK 
(SP)+,R3 <TRESTORE R3 
(SP) ,-(SP) 3 TADJUST THE STACK AND PUT ADDRESS OF THE 
4(SP) ,2(SP) .: FIRST ASCII CHARACTER ON IT 
#STTYIN,4(SP) 
: :RETURN 


9$: 8 : HTERMINAT FOR ASCII CHAR. TO TYPE 
STTYIN: 32. s RESERVE 32. BYTES FOR TTY INPUT 
: <207><377><377> =:CODE FOR BELL 

000 is /*C/<15><12> 
000012 : /*U/<15><12> 

000 : ASC /*G/<15><12> 
051127 SMSWR: .ASCIZ <15><12>/SWR = 


020127 : .ASCIZ / NEW = 
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-EVEN 
-SBTTL SCOPE HANDLER ROUTINE 


AIRES IOUS ISI IIDIOIIOIIOIOIIOIIOIIOIOIDIOIUOIDIDIOIDIOIIOINOIO OI ittk 

SS THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

og Bh SWITCH wih 9 PROVIDED BY THIS ROUTINE ARE: 


ON TEST 
INHIBIT ITERATIONS 
LOOP ON ERROR 

LOOP ON TEST IN SWR<7:0> 


3: SCOPE=I0T 


nr RR RR ARAAO 
ae se ts ot a es es es es FY 


eee ae ee ee ee 
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SSCOPE : 
KSWR 33TEST FOR CHANGE IN SOF T=SWR 
003346 JSR PC,CTRLCG 


040900 167116 1$: BIT #B1T14,aSWR ;LOOP ON PRESENT TEST? 
012022 BNE SOVER : SYES IF SW14=1 
;AAAAASTART OF CODE FOR THE XOR TesTeRAnane 
012024 $XTSTR: BR 6$ ON THE *‘XOR'* TESTER CHANGE 


(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(i) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 


167050 
001102 


001103 
167012 
001106 


RTI 
$MXCNT: 2000. 


@#ERRVEC ,- (SP) 
ha ai 


a4#177060 
(SP) + ,@#ERRVEC 
SSVLAD 
(SP) +, (SP)+ 
ade - @#ERRVEC 


: IF RUNNING 
i INSTRUCTION TO A ‘NOP’ (NOP=240) 
AVE THE CONTENTS OF THE ERROR VECTOR 
:iSEr FOR TIMEOUT 
TIME OUT ON XOR? 
SZRESTORE THE ERROR VECTOR 
3:GO TO THE NEXT TEST 
7;CLEAR THE STACK AFTER A TIME OUT 
: sRESTORE THE ERROR VECTOR 
OOP ON THE PRESENT TEST 


sl 
CODE FOR THE XOR TESTERMAMHAM 
aSwR 


#B1T08, 

2s 
aSWR,STSTNM 
SOVER 

SERFLG 

3$ 

3 RMAX,, SERFLG 
+ T09,aSwR 
SLPERR,$LPADR 
SOVER 


SERFLG 
STIMES 


1$ 
#B1T11,aSWR 
1$ 

$PASS 

1$ 

SICNT 
STIMES,SICNT 
SOVER 
#1,$1CNT 
SMXCNT ,STIMES 
STSTNM 
STSTNM,STESTN 
(SP) ,SLPADR 
(SP) ,SLPERR 


$SESCAPE 
#1,SERMA 


STSTNM, 01 SPLAY 


SLPADR, (SP) 


: LOOP ON SPEC. TEST? 
F NO 


, I 
730N THE RIGHT TEST? SWR<7:0> 
; IF YES 


TZHAS AN ERROR OCCURRED? 
:2BR IF NO 
2 7MAX. ERRORS FOR THIS TEST OCCURRED? 


IF NO 
: ¢LOOP ON ERROR? 
:BR_IF NO 
7:SET LOOP ADDRESS TO LAST SCOPE 


3:ZERO THE ERROR FLAG 
7;CLEAR THE NUMBER OF ITERATIONS TO MAKE 
SZESCAPE TO THE NEXT TEST 
22 INHIBIT ITERATIONS? 
IF YES 
2 FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
TZINCREMENT ITERATION COUNT 
: s CHECK THE NUMBER OF ITERATIONS MADE 
F MORE ITERATION REQUIRED 
; RE INITIALIZE THE ITERATION COUNTER 
NUMBER OF ITERATIONS TO DO 
>: COUNT TEST NUMBERS 
::SET TEST NUMBER IN APT MAILBOX 
3:SAVE SCOPE LOOP ADDRESS 
7;SAVE ERROR LOOP ADDRESS 
7: CLEAR THE ESCAPE FROM ERROR ADDRESS 
ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
; :DISPLAY TEST NUMBER 
FUDGE RETURN ADDRESS 
SIFIXES PS 
77MAX. NUMBER OF ITERATIONS 
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CVMNBA.P11 SCOPE HANDLER ROUT INE SEQ 0048 
901 
907 ;SUBROUTINE TO DETERMINE UNIT # 
908 012272 012737 000000 001532 WHICHU: MOV #0, UNI TBD ;PRIME THE VALUE 
909 012300 013737 001460 012322 MOV MASKNM, 11 [LOAD VALUE 
910 012306 006237 012322 10$: ASR 11$ > SHIFT 
911 012312 001404 BEQ 12$ BR WHEN DONE 
912 012314 005237 001532 INC UNI TBD [UPDATE BIT 
913 012320 000772 BR 10$ 
914 012322 000000 11$: 0 
915 012324 000207 12$: RTS PC EXIT 
916 .SBTTL ERROR HANDLER ROUTINE 
(2) J LARA REREREREEREEEEEREEEEEREEEEEREEEEEEEEREREEEEKEREERKEE 
(1) [*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
(1) [*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
(1) [*AND GO TO SERRTYP ON ERROR 
(1) [*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
(1) Swi 5=1 HALT ON ERROR 
(1) > *SW13=1 INKIBIT ERROR TYPEOUTS 
(1) *SWO9=1 LOOP ON ERROR 
(1) >*CALL 
(1) :* ERROR N :;ERROR=EMT AND N=ERROR ITEM NUMBER 
(1) 012326 SERROR: 
(1) 012326 104410 CKSWR TEST FOR CHANGE IN SOFT-SWR 
(3) 012330 004737 003346 JSR PC.CTRLCG ;TEST FOR CTRL C/G 
(3) 012334 053737 001530 BIS MASKNM , BADUNT TINCIDATE BAD BIT 
(3) 012342 004 012272 JSR PC ,WHI CHU [DETERMINE UNIT # 
(1) 012346 105237 001103 7$: INCB = SERFLG :3SET THE ERROR FLAG 
(1) 012352 001775 BEQ 7$ [DON'T LET THE FLAG GO TO ZERO 
(1) 012354 013777 001102 166560 MOV STSTNM,@DISPLAY ;:DISPLAY TEST NUMBER AND ERROR FLAG 
(1) 012362 005237 001112 INC SERTTL ZINC THE ERROR COUNT 
(1) 012366 011637 001116 MOV (SP) , SERRPC T:GET ADDRESS OF ERROR INSTRUCTION 
(1) 012372 162737 000002 001116 SUB #2, SERRPC 
(1) 012400 117737 166512 001114 MOVB  a@SERRPC,$ITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
(1) 012406 032777 020000 166524 BIT #B1T13,aSWR :3SKIP TYPEOUT IF SET 
(1) 012414 001004 BNE 20$ :SKIP TYPEOUTS 
(1) 012416 004737 012530 JSR PC, SERRTYP 72G0 TO USER ERROR ROUTINE 
(1) 012422 104401 001165 TYPE  ,$CRLF 
(1) 012426 208: 
(1) 012426 122737 000001 001210 CMPB  #APTENV,SENV _—; RUNNING IN APT MODE 
(1) 012434 001007 BNE 2$ TINO,SKIP APT ERROR REPORT 
(1) 012436 113737 001114 012450 MOVB $ITEMB,21$ >:SET ITEM NUMBER AS ERROR NUMBER 
(1) 012444 004737 013374 JSR PC, SATY4 TZREPORT FATAL ERROR TO APT 
(1) 012450 000 21$: .BYTE 0 
<1) 0124651 000 “BYTE 0 
(i) 012452 000777 22$: BR 22$ ; ;APT ERROR LOOP 
(1) 012454 005777 166460 2$: TST aSWR [HALT ON ERROR 
(1) 012460 100002 BPL 3$ ;3SKIP IF CONTINUE 
(1) 012462 000000 HALT T ON ERROR! 
(1) 012464 104410 CKSWR TITEST FOR CHANGE IN SOFT-SWR 
(1) 012466 032777 001000 166444 3$: BIT #81T09,aSWR ;LOOP ON ERROR SWITCH SET? 
(1) 012474 001402 BEQ 4 BR IF NO 
(1) 012476 013716 001110 MOV SLPERR, (SP) TIFUDGE RETURN FOR LOOPING 
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912502 005737 001162 4$: SESCAPE is CHECK FOR AN ESCAPE ADDRESS 
013716 001162 i SESCAPE,(SP) | ::FUDGE RETURN ADDRESS FOR ESCAPE 
022737 010142 : WSENDAD #42; ;ACT~11 AUTO=ACCEPT? 
001001 BNE 6$ BRANCH IF NO 
Ti YES 
6$: 


RTI ; RETURN 
-SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


= RRE RE RERERERERREREEEEERERERERRERERRREERERREREREREEREREE E 

SS THIS ROUTINE USES THE "ITEM CONTROL BYTE’ ($ITEMB) TO DETERMINE WHICH 
:*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE’ ($ERRTB). 
>*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SERRTYP: 
104401 TYPE - SCRLF Pg RETURN’’ &@ "LINE FEED"’ 
010046 RO,-(SP) 
005000 RO + BT CKUP THE ITEM INDEX 
153700 a4$1TEMB RO 
012544 001004 1$ 331F ITEM NUMBER IS ZERO, JUST 
3-TYPE THE PC OF THE ERROR 
012546 013746 SERRPC ,-(SP) 3;SAVE SERRPC FOR TYPEOUT 
; ERROR ADDRESS 
012552 3:GO TYPE--OCTAL ASCII(ALL DIGITS) 
000445 BR 


3z:GET OUT 
; ADJUST THE INDEX SO THAT IT WILL 
ae WORK FOR THE ERROR TABLE 


012526 000002 


RO 
001254 ;FORM TABLE POINTER 
012602 $ SIPI CKUP ‘ERROR MESSAGE** POINTER 
3$ 2 SKIP TYPEOUT IF NO POINTER 
::TYPE THE ‘ERROR MESSA 
: -WORD 0 RROR MESSAGE"* POINTER a #3 HERE 
001165 -SCRLF 3 CARRIAGE RETURN’’ & “LINE FEED"’ 
012620 3 (RO) +,4$ PICKUP ‘DATA HEADER’’ POINTER 
5$ 3: SKIP TYPEOUT IF 0 
7: TYPE THE ‘DATA HEADER’ 
2 -WORD 0 32'DATA HEADER’ POINTER GOES HERE 
001165 -SCRLF ae ‘CARRIAGE RETURN'' & ‘LINE FEED’ 
R1,-(SP) iSAVE R1 
(RO)+,R1 i 7P1CKUP "DATA TABLE*’ POINTER 
9$ F NO DATA TO BE TYPED 
(RO) +,RO : 2PI.CKUP “DATA FORMAT'’ POINTER 
(RO) + s‘‘OCTAL** OR ‘DECIMAL 
7$ 77BR IF DECIMAL 
@(R1)+,-(SP) : TSAVE a(R1)+ FOR TYPEOUT 
8s 3:GO TYPE--OCTAL ASCII(ALL DIGITS) 


013146 : MOV a(R1)+,-(SP) _;;SAVE @(R1)+ FOR TYPEOUT 
012652 104405 +:GO TYPE--DECIMAL ASCII WITH SIGN 





CVMNB~A 


CVMNBA 


(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 


-P1 


ta 
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ERROR MESSAGE TYPEOUT ROUTINE 


8$: (R1) 
9$ 

012700 ,11$ 
AR 6$ 


(SP)+,R1 
(SP)+,RO 
- SCRLF 
PC 


ri1S THERE ANOTHER NUMBER? 
+: TYPE TWO(2) SPACES 
z RESTORE R1 


: RESTORE RO 
32° ‘CARRIAGE RETURN’’ & "LINE FEED'’ 


7 RETURN 
:;TWO(2) SPACES 


SEQ 0050 
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-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


DEERE IIDC IIIIOIOIIUIOIIIUIIUINUD UD Di iit 

CRTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
7*OCTAL (ASCII) NUMBER AND TYPE IT. 

:*$TYPOS=--ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


2 *CALL: 
MOV NUM , = (SP) ; ;NUMBER TO BE TYPED 
TYPOS 3 CALL FOR TYPEOUT 
-BYTE N ;zN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
-BYTE ™ 7zM=1 OR O 
371=TYPE LEADING ZEROS 
3; 0=SUPPRESS LEADING ZEROS 


hak grey oid oA HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
:*$TYPOS OR $TYPO 

> *CALL: 

;* MOV NUM ,-(SP) 7 NUMBER TO BE TYPED 

; PON 77CALL FOR TYPEOUT 


i* 
> gicrtigs HERE FOR TYPEOUT OF A 16 BIT NUMBER 


NUM ,- (SP) 7 NUMBER TO BE TYPED 
73CALL FOR TYPEOUT 


2 a(SP) ,-(SP) 3sPICKUP THE MODE 
000001 013127 MO 1(SP) ,SOF ILL 7zLOAD ZERO FILL SWITCH 
013131 (SP)+,$OMODE+1 ;;NUMBER OF DIGITS TO TYPE 
000002 (SP) ADJUST RETURN ADDRESS 


BR PON 
000001 013127 : . 73SET THE ZERO FILL SWITCH 
000006 013131 MO 73SET FOR SIX(6) DIGITS 
000005 013126 : = 2: SET | ITERATION COUNT 


Ct ae hi ae te ie te i a a a a a a 
ek ld nd ed td = 8 


RS 
013131 + SIGET THE NUMBER OF DIGITS TO TYPE 


000006 7zSUBTRACT IT FOR MAX. ALLOWED 

013130 R4 , SOMODE SAVE IT FOR USE 

013127 ° 3;GET THE ZERO FILL SWITCH 

000012 (SP) ,R 33PICKUP_THE INPUT NUMBER 
7:CLEAR THE OUTPUT WORD 
7;ROTATE MSB INTO ‘'C’’ 


::G0 DO MSB 
73FORM THIS DIGIT 


: L ; ¢GET LSB OF THIS DIGIT 
013130 ty TYPE THIS DIGIT? 


7$ ; TBR IF NO 
177770 #177770,R3 7:GET RID OF JUNK 
BNE 4$ 7: TEST FOR O 


) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 


1 
q 
(1 
6 
(1 
(1 
.¢ 
(1 
qd 
(1 
1 
qd 
.¢ 
(1 
qd 
(1 
(1 
(1 
(1 
(1 
qd 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
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ia a 0? 
S_ANYMORE 0°S 


;;MAKE ASCII IF NOT ALREADY 
7zSAVE FOR TYPING 
2260 bag THIS DIGIT 
013126 T BY 1 


SZINSURE LAST DIGIT ISN'T A BLANK 
::60 DO THE LAST DIGIT 


: TORE R3 

32SET THE STACK FOR RETURNING 
(SP)+, (SP) 

7 RETURN 


8$: :zSTORAGE FOR ASCII DIGIT 

° 2s TERMINATOR FOR TYPE ROUTINE 
SOCNT: .BYTE 7p DIGIT COUNTER 
SOFILL: .BYTE ZERO FILL SWITCH 
SOMODE: .WORD 0 NUMBER OF DIGITS TO TYPE 
.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


epee titi ier iii i it iit iit titi itittitt ttt titty 
:*TAIS ROUTINE IS USED TO CHANGE A 16-B1T BINARY NUMBER TO A 5-DIGIT 
:*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
7 *NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
ai WITH SPACES. 

** 3 


NUM ,~(SP) 32PUT THE BINARY NUMBER ON THE STACK 
3:GO TO THE ROUTINE 


013132 
RO,-(SP) : PUSH RO ON STACK 


R5,~-(SP) 
020200 #20200,-(SP) 
000020 ty SP) ,R5 


R5 
000055 #*=~,1(SP) 
: RO 


013346 #SDBLK ,R3 SETUP THE OUTPUT POINTER 

000040 #* ,(R3)+ 77SET THE FIRST CHARACTER TO A BLANK 
: R 2 CLEAR THE BCD NUMBER 

013336 $DTBL(RO) ,R1 GET THE CONSTANT 
: R1,R5 37 FORM ee DIGIT 


4 77BR IF 
013212 R2 72 INCREASE THE BCD DIGIT BY 1 


3 ZERO THE CONSTANTS INDEX — 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0053 
000774 BR 3$ 

060105 4$: ADD R1,R5 :ADD BACK THE CONSTANT 

005702 TST R2 :3CHECK IF BCD DIGIT=0 

001002 BNE 5$ THROUGH IF 0 

105716 TSTB = (SP) t:STILL DOING LEADING 0'S? 

100407 BMI 7$ ::BR IF YES 

106316 5$: ASLB — (SP?) + MSD? 

103003 BCC 6$ 33 IF NO 

116663 000001 177777 MOVE — 1(SP),=1(R3) 3: YES=~SET THE SIGN 

052702 000060 6S: BIS #'°0,R2 MAKE THE BCD DIGIT ASCII 

052702 000040 7$: BIS #’ (RO 3 3MAKE IT A SPACE IF NOT ALREADY A DIGIT 
110223 MOVB _—R2, (R3) + ::PUT THIS CHARACTER IN THE OUTPUT BUFFER 
005720 TST (RO) + +: JUST INCREMENT ING 

020027 000010 CMP RO,#10 <TCHECK THE TABLE INDEX 

002746 BLT 2$ +:GO DO THE NEXT DIGIT 

003002 BGT 8$ *:G0 TO EXIT 

010502 MOV R5,R2 °:GET THE LSD 

000764 BR 6$ ::GO CHANGE TO ASCII 

105726 8$: TSTB (SP) + 2 sWAS THE LSD THE FIRST NON-ZERO? 
100003 BPL 9$ : F NO 

116663 177777 177776 MOVB  <-1(SP),-2(R3)  ::YES=-SET THE SIGN FOR TYPING 
105013 9$: CLRB —s- (R3) 7:SET THE TERMINATOR 

012605 MOV (SP)+,R5 *:POP STACK INTO R5 

012603 MOV (SP)+.R3 t:POP STACK INTO R3 

012602 MOV (SP)+-R2 +:POP STACK INTO R2 

012601 MOV (SP)+,R1 :zPOP STACK INTO R1 

012600 MOV (SP)+-RO ;:POP STACK INTO RO 

104401 013346 TYPE , SDBLK NOW TYPE THE NUMBER 

016666 000002 000004 MOV 2(SP) .4(SP) + : ADJUST THE STACK 

012616 MOV (SP) +, (SP) 

000002 RTI ::RETURN TO USER 

023420 SDTBL: 10000. 

001750 1000. 

000144 100 

000012 


10. 
$SDBLK: .BLKW 4 
-SBTTL APT COMMUNICATIONS ROUTINE 


J LARA REERERREER EEE EE REE ERERREREREREEEEREREEEE EE 


112737 000001 013622 $ATY1: MOVB #1,$FFLG 3;TO REPORT FATAL ERROR 
112737 000001 013620 $ATY3: MOVB #1 ,SMFLG 3:TO TYPE A MESSAGE 
000403 BR SATYC 

112737 000001 013622 wre MOVB #1,$FFLG 3:TO ONLY REPORT FATAL ERROR 
010046 MOV RO,-(SP) 33PUSH RO ON STACK 
010146 MOV R1,~(SP) ;=PUSH R1_ON STACK 
105737 013620 TSTB SMFLG +s SHOULD TYPE A MESSAGE? 
001450 BEQ 5$ NOT: 

ascites 000001 001210 A MAPTENV , SENV :ZOPERAT ING UNDER APT? 
132737 000100 001211 BITB M#APTSPOOL , SENVM : SHOULD SPOOL MESSAGES? 
001425 BEQ 3$ IF NOT: BR 

017600 000004 MOV a4 (SP) ,RO 3 3GET MESSAGE ADDR. 


062766 000002 000004 ADD #2,4(SP) 3 BUMP RETURN ADDR. 


CVMNB-A MNCDI 
CVMNBA .P1 


te et i i ee a et 


DIAGNOSTIC 


MACY11 SF gee 


APT COMMUNICATIONS ROUTINE 


001170 
001204 


001204 
001206 
000004 


000002 
177776 
014146 


013622 


1$: 


2$: 


001176 
013532 
000004 


SMFLG: 
$LFLG: 


SFFLG: 


APTCSUP=040 


oo 


RO, $MSGAD 
(RO) + 


2$ 

$MSGAD ,RO 
RO 

RO, SMSGLGT 
#4 , SMSGTYPE 


SFFLG 
12$ 

SENV 

12$ 
SMSGTYPE 
11$ 


@4(SP) , SFATAL 
2.4(SP) 


(SP)+-RO 
PC 
0 


0 
0 


c 3 
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23 SEE Mia _DONE W/ LAST XMISSION? 
WAIT 


3 PUT NADDR IN MAILBOX 
3sFIND END OF MESSAGE 


33SUB START OF MESSAGE 


SITELL APT TO TAKE MSG. 


::PUT MSG ADDR IN JSR LINKAGE 
RETURN ADDRESS 

3 PUSH 199776 ON STACK 

::CALL TYPE MACRO 


£s SHOULD | REPORT FATAL ERROR? 
: RUNING UNDER APT? 


IF BR 
224 INISHED tt MESSAGE ? 


33GET ERROR # 
; ;BUMP RETURN ADDR. 

;TELL APT TO TAKE ERROR 

;CLEAR FATAL FLAG 
SICLEAR LOG FLAG 
zCLEAR MESSAGE FLAG 
33:POP STACK INTO R1 
: ¢POP STACK INTO RO 

URN 


RE 
; EMESSC. FLAG 
G FLAG 
ZIFATAL FLAG 


SEQ 0054 
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-SBTTL POWER DOWN AND UP ROUTINES 


; SRR REE REREEKEKEEEEEREEERERRERAKEEREREERREREREREERKEEEE 


“POWER DOWN ROUTINE 
012737 000024 $PWRDN: MOV AMSILLUP ,Q@MPWRVEC ;;SET FOR FAST UP 
340 026 PWRVEC+2 ;:PRIO:7 


000 
RO ON STACK 
R1 ON STACK 
R2 ON STACK 
R3 ON STACK 
R4 ON STACK 
33 RS ON STACK 

165260 33 @SWR ON STACK 

013774 ;;SAVE SP 

013676 #SPWRUP , AAPWRVEC ;;SET UP VECTOR 


--2 7 HANG UP 


DASARI SIDIOISIOISISIOISISIOIIISIIISIIIOIIIIDIOIDIOIIIDIOIOISIIOIIIUIOIOIDIDIUIIIDIIIOIDIOIDIOI IIIT I 
“ POWER UP ROUTINE 
013770 $SPWRUP: MOV MSILLUP ,AMPWRVEC ;;SET FOR FAST DOWN 
013774 R6,SP 33GET SP 
013774 ;zWAIT LOOP FOR THE TTY 
013774 1$: 2 ¢WAIT FOR THE INC 
1$ WORD 


2 OF 
165212 ::POP STACK INTO aSwR 
33POP STACK INTO R5 
;3POP STACK INTO R4 
3zPOP STACK INTO R3 
33:POP STACK INTO R2 
POP STACK INTO R1 
33POP STACK INTO RO 
013624 #SPWRDN, @#PWRVEC :;SET UP THE POWER DOWN VECTOR 
000340 #340, a#PWRVEC+2 2 ¢PRIO: 7 
7;sREPORT THE POWER FAILURE 
SPWRMG: . PWRMSG sPOWER FAIL MESSAGE POINTER 
(PC) +, (SP) S URESTART AT BEGIN 
SPWRAD: .WORD BEGIN ;sRESTART ADDRESS 


SILLUP: 23 THE POWER UP SEQUENCE WAS STARTED 
BR 3 3; BEFORE THE POWER DOWN WAS COMPLETE 

SSAVR6: 0 ;PUT THE SP HERE 

PWRMSG: .ASCIZ <15><12>/RESTARTING AFTER A POWER FAILURE/<15><12> 


WDAARRARAARARAR SS 
Oa Se 
Uw wewewevwvuwww 


000 
014044 
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-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


FLERE REE REE ER EERE EERE EREERERERE EERE EEERERERRERRRERKEEE 
:*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
:*CHANGE IT TO BINARY. 
3 *CALL: 
st RDOCT ;ZzREAD AN OCTAL NUMBER 
:* RETURN HERE 7 ;LOW ORDER BITS ARE ON TOP OF THE STACK 
3* : HIGH ORDER BITS ARE IN $HIOCT 
SRDOCT: (SP) ,-(SP) ;zPROVIDE SPACE FOR THE 
MO 4(SP) ,2(SP) 321 T NUMBER 

RO,-(SP) :zPUSH RO ON STACK 

R1,-(SP) : PUSH R1 ON STACK 

R2,-(SP) 77PUSH R2 ON STACK 

7 READ AN ASCIZ LINE 
(SP)+,RO ::GET ADDRESS OF 1ST CHARACTER 
R1 sz CLEAR DATA WORD 


R2 
(RO) +,-(SP) 3sPICKUP THIS CHARACTER 
3$ 331F ZERO GET OUT 


R2 
177770 #*C7, (SP) 7zSTRIP THE ASCII JUNK 
* al pig THIS DIGIT 


2 o3 
: (SP) + 33CLEAN TERMINATOR FROM STACK 
000012 R1,12(SP) 73SAVE THE RESULT 
014144 R2,$HIOCT 
(SP)+,R2 3:POP STACK INTO R2 
(SP)+,R1 ;3;POP STACK INTO R1 
(SP)+,RO 3:POP STACK INTO RO 


RTI ; RETURN 
014144 000000 $HIOCT: . 0 3zHIGH ORDER BITS GO HERE 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


ee ed etd ed td ds =) od od 
de dd 
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(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 


014146 


014310 


DIAGNOSTIC 
READ AN OCTAL NUMBER FROM THE TTY 


105737 
10000 


013746 


000002 
000001 


000100 


014216 
013364 


000040 


014424 


014360 
001156 


001154 


MACY11 27(654) 


: CAUTION 


TYPE 
TYPE 


2 
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THE FIRST 4 LOC. ARE OVERLAYED TO LOWER INTERRPUT LEVEL 
THE OVERLAY OCCURS AFTER THE ‘‘SETUP’’ CODE 
“SBITL TYPE ROUTINE 


TREE AR REAR ERE REE EERE RRR RREEERERE REE ER ERR 

‘ SROUT INE TO TYPE ASCIZ MESSAGE. a oe MUST TERMINATE WITH A O BYTE. 
; * THE ROUTINE WILL INSERT A NUMBER FEED. 
;*NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
$FILLC CONTAINS THE CHARACTER TO FILL AFTER. 


*CAL 
ie1) USING A TRAP INSTRUCTION 
o® 


-MESADR 


STPFLG 
1$ 


3$ 

RO,-(SP) 
@2(SP) ,RO 
M#APTENV, SENV 


6 
#APTSPOOL ,SENVM ; 
62$ 


RO,61$ 
one 


M#APTCSUP , SENVM 


60$ 

(RO) +,-(SP) 
4$ 

(SP) + 
(SP)+,RO 
#2, (SP) 
#HT, (SP) 

8$ 
#CRLF , (SP) 
5$ 


(SP) + 


_ 


2 
PC,S$TYPEC 
SFILLC,(SP)+ 


2$ 
$NULL ,~ (SP) 


F NULL CHARACTERS AFTER A LINE 


3zMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


21S THERE A TERMINAL? 
:3BR IF YES 


SILEAVE IF NO TERMINAL 


SAVE RO 
£3681 ADDRESS OF ASCIZ STRING 
UNNING IN APT MODE 
INO, GO CHECK a ay Des 
POOL MESSAGE T 
£ INO. GO CHECK FOR CONSOLE 
7;3SETUP MESSAGE ADDRESS FOR APT 
+s SPOOL MESSAGE TO APT 
MESSAGE ADDRESS 
3 TAPT pr SUPPRESSED 
2c YES, SKIP TYPE OUT 
PUSH CHARACTER TO BE TYPED ONTO STACK 
::BR IF IT ISN'T THE TERMINATOR 
331F TERMINATOR POP IT OFF THE STACK 
7 RESTORE RO 
;zADJUST RETURN PC 
oe URN 


T 
3; BRANCH IF <HT> 
7; BRANCH IF NOT <CRLF> 


::POP <CR><LF> EQUIV 
73 TYPE A CR AND LF 


3:CLEAR CHARACTER COUNT 

3:GET NEXT CHARACTER 

3:GO TYPE THIS CHARACTER 

3371S IT TIME FOR FILLER CHARS.? 
oe NO GO GET NEXT CHAR. 

;GET # OF FILLER CHARS. NEEDED 
AND THE NULL CHAR. 


SEQ 0057 
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( 
( 
( 
( 
( 
( 
9 
( 
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( 
( 
( 
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( 
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( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
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014314 


014426 


014430 


014502 


DIAGNOSTIC 
TYPE ROUTINE 


010146 


000001 


014360 
014424 


164564 


000002 
000015 


014424 
000012 


000006 
000060 


014502 
014502 


000002 
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014424 


164556 
000002 


000002 


014502 


7$: 


;HORIZONTAL TAB 


8$: 
9$: 


STYPEC: 


1$: 


INCB 
SCHARCNT : . WORD 


STYPEX: RTS 


1(SP) 
6$ 


PC,S$TYPEC 
SCHARCNT 
7$ 


PROCESSOR 


#" ,(SP) 
PC,S$TYPEC 
#7, $CHARCNT 
9$ 


(SP)+ 
2$ 


a$TPS 
STYPEC 
2(SP) ,a$TPB 
> eatact 


ALF ,2(SP) 
STYPEX 
(PC) + 

0 

PC 


G 5 
19-SEP-78 08:54 PAGE 32-1 


:sDOES A NULL NEED TO BE TYPED? 
IF wt oy A gg THE NULL OFF OF STACK 
:3G0 TYPE A 


O NOT COUNT “AS A COUNT 
; LOOP 


7 REPLACE TAB WITH SPACE 
si TYPE A SPACE 
i IF NOT AT 


33TAB STOP 

;;POP SPACE OFF STACK 

3:GET NEXT CHARACTER 

7;WAIT UNTIL PRINTER IS READY 


;;LOAD CHAR TO BE TYPED INTO DATA REG. 
3721S CHARACTER A CARRIAGE RETURN? 

3 BRANCH IF NO 

“en CHARACTER COUNT 

3231S CHARACTER A LINE FEED? 

; BRANCH _IF YES 

;;COUNT THE CHARACTER 

3=CHARACTER COUNT STORAGE 


-SBTTL BINARY TO ASCII AND TYPE ROUTINE 


DISA ROI ISIOISIOIIOIIIOIOIDIOISIISIISIDIOIIIOIOIOIUIOIIIDIIOIIOIIEICIIOIIUIOIOIOIUIDIOIDIUIDIUIDIOIOIDI 
z*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 16-BIT 
;*BINARY-ASCII NUMBER AND TYPE IT. 


*CALL: 


-* 


-* 


$TYPBN: 


1$: 


2s: 


$BIN: 


NUMBER , - (SP) 


R1,~(SP) 
6(SP) ,R1 


#'0O,$BIN 
R1 


SP)+, 
2(SP) ,4(SP) 
(SP) +, (SP) 


0,0 


3; :NUMBER TO BE TYPED 
sate iv 


73SAVE_R1 ON THE STACK 

73GET THE INPUT NUMBER 

72SET ‘'C’' SO CAN KEEP TRACK OF THE NUMBER OF BITS 
3:SET CHARACTER TO AN ASCII ‘0"’. 

2 GET THIS BIT 


; DONE? 
>INO--SET THE CHARACTER EQUAL TO THIS BIT 
2260 TYPE THIS BIT 
AR "'C'' SO CAN neal TRACK OF BITS 
 PADJUST THE STACK 


7 RETURN TO USER 
7zSTORAGE FOR ASCII CHAR. AND TERMINATOR 


SEQ 0058 
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.SBTTL TRAP DECODER 


{RRR RRARRRREREER EERE REE R ERR RRR TRAE RRR ER ee 
STHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
[*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
3*GO TO THAT ROUTINE. 


STRAP: RO,-(SP) 3:SAVE_RO 
000002 2(SP) ,RO 22GET TRAP ADDRESS 
-(RO) ;BACKUP BY 2 
(RO) ,RO :3GET RIGHT BYTE OF TRAP 
RO :POSITION FOR INDEXING 
014540 STRPAD(RO).RO  ;; INDEX TO TABLE 
014524 00 RO 3:G0 TO ROUTINE 


3: THIS IS USE TO HANDLE THE ‘'GETPRI‘’ MACRO 


014526 $TRAP2: MOV (SP) ,~(SP) 7sMOVE THE PC DOWN 
MOV 4(SP) ,2¢SP) 7zMOVE THE PSW DOWN 
RTI 7 sRESTORE THE PSW 


-SBTTL TRAP TABLE 


3*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE ‘‘TRAP’’ INSTRUCTION. 


: ROUT INE 


014540 014526 $TRPAD: . $STRAP2 
S$TYP 37 CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
3; CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
3-CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
3; CALL=TYPON TRAP+4 (104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
:-CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
014554 014430 3; CALL=TYPBN TRAP+6(104406) TYPE BINARY (ASCII) NUMBER 


014556 011102 :-CALL=GTSWR TRAP+7(104407) GET SOFT-SWR SETTING 


011012 3; CALL=CKSWR TRAP+10(104410) TEST FOR CHANGE IN SOF T-SWR 
; = CALL=RDCHR TRAP+11(104411) TTY TYPEIN CHARACTER ROUTINE 
3;CALL=RDLIN TRAP+12(104412) TTY TYPEIN STRING ROUTINE 
;;CALL=RDOCT TRAP+13(104413) READ AN OCTAL NUMBER FROM TTY 


Ce Ee ee i ee a a ee ee a a a i 
We St 2 a at td 
ewe ewe wey vee eee Yr ww 
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CVMNBA.P11 TRAP TABLE 


THIS ROUTINE WILL PROTECT THE PROGRAM 
; FROM INTERRUPTS (BAD ONES). 


;*THE TRAP CATCHER IS SET UP FOR 
§ . WORD +2 
:* JSR PC, RO 


ILLEGAL INERRUPTS OR_ INTERRUPTS TO THE WRONG VECTOR 
:*GOTO THE VECTOR AND PICK UP THE *’.+2°" AS AN ADDRESS 


;*AND °4700°" AS NEW STATUS. 

:*THE .+2 AS A PC WILL CAUSE EXECUTION OF THE *JSR eee RO* (AN ILLEGAL INSTR.). 
[*AND TRAP TO LOCATION ‘%''. IN LOCATION 4 WE HAVE A 

>*POINTER HERE. IF THIS CONDITION ang & a TRAP TO LOC. 4. 

7*WE WILL REPORT IT IN THE SAME MANNER T WE WOULD 

;*PEPORT ANY OTHER ERROR. 

:*1F A BUSS ERROR TRAP DID OCCUR AND CAUSE A TRAP TO 4. 

3*WE WILL HALT. 


014570 011637 TRD: MOV (6), TRTO GET WHERE WE CAME TO. 
014574 162737 000004 SUB #4,TRTO FORM READ ADDR. 


014602 023727 CMP TRTO,41000 DID TRAP FROM LESS THAN ADDR. 1000? 
014610 003402 BLE 2$ ;NO-CONTINUE . 


014612 000000 : HALT z;A BUSS ERROR TIME OUT TRAP BROUGHT US HERE. 
ADDRESS CONTAINED IN TRTO. 


014614 000776 BR 1$ ;DONT'T ALLOW CONTINUE. 


014616 016637 015044 2$: MOV 4(6), TRFRO GET TRAPPED FROM ADDR. 
014624 062706 000004 ADD #4 ,SP ;ADJUST THE STACK POINTER 


014630 122737 001102 CMPB 437 ,.STSTNM LESS THAN INTERRUPT = aa 


014636 003402 BLE $ :NO MUST BE WRONG VECTOR 
; SS$$SSSS$SS$SSSSSSSSSSSS$>>>ERROR<<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
014640 104012 ERROR 12 ERROR! ILLEGAL INTERRUPT OR 

; INTERRUPT TO WRONG VECTOR. 

SIF TEST NO. IS LESS THAN 37,1TS 

[LIKELY (BUT NO EXCLUSIVELY)TO BE A 

;DEVICE OTHER THAN THE DEVICE UNDER TEST, 

IF THE INTERRUPT OCCURED 

[DURING AN INTERRUPT TEST, I'D 

; SUSPECT A PROBLEM WITH THE DEVICE UNDER TEST. 


[VECTORED TO IS OUTSIDE OF THE 
RANGE ASSIGNED TO THE DEVICE 
:1"D SUSPECT THAT THE 
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DEVICE PUT THE WRONG INTERRUPT 
VECTOR ON THE BUS DURING THE INTERRUPT 
:PROCESS. 
NOTE: 

ZFOR THIS ERROR = DON'T USE 

OOP ON ERROR’’ OPTION. 
ZALSO EXPECT THAT THE INTERRUPT TEST TO 
WILL REPORT THAT THE DEVICE DIDN'T 
; INTERRUPT. 
FOLLOW THE RECOMMENDED PROCEDURE 
;_IN THE DOCUMENT (ON THIS DIAGNOSTIC) 
:FOR LOOPING ON TEST. 


ene * : WORM ES CR NNER RS 


3$: (SP) +, (SP)+ CLEAN OFF STACK 
001176 SPASS a THIS FIRST PASS? 
BNE 4$ . D REPORT 
017644 VTMSG TELL OPER. 
001202 MOV SUNIT,-(SP) [GET UNIT # 


NOP 
017677 -VTMSG3 TYPE “EXPECTED INTR. AT °° 
001430 DIDINV,-(SP) SAVE DIDINV FOR A i 


3 


1 YPE ZEROS 
017727 -VTMSG1 ‘TYPE ** RECEIVED INTR. AT "' 
015042 TRTO,-(SP) :: SAVE TRTO FOR TYPEOUT 
:GO TYPE--OCTAL ASCII 
3 STYPE 3 DIGIT(S) 
1 s TYPE LEADING ZEROS 
017757 -VTMSG2 ‘TYPE “RESTARTING TEST’ 
164474 4$: DIDINS,@DIDINV RESTORE INCORRECT VECTOR 
DIEINS ,aDIEINV 
#4700 ,aDIEINS 
#4700,aDIDINS ;LOCATION WITH .+2 + 4700 
TRTO,DIDINV ZSET UP ACTUAL VECTOR LOCATION 
#7 ,DIDINV :CLR LOW BITS 
DIDINV,DIDINS ;SET UP NEW VECTOR VALUES 
DIDINV,DIEINV 
DIDINV,DIEINS 
#2,DIDINS 
#4 ,DIEINV 
#6,DIEINS 
MP @$LPADR START TEST OVER AGAIN. 
TRTO:  .WORD OQ : CONTAINS ADDR. WE TRAPPED OR INTERRUPTED TO. 
TRFRO: .WORD 0 ;CONTAINS ADDR. WE TRAPPED OR INTR. FROM. 
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-SBTTL ASCII MESSAGES 
PRIMEO: .BYTE 15,12 
ASCII \L = LOGIC TEST WITH OR WITHOUT TEST MODULE CONNECTED\ 


15,12 
\W = WRAPAROUND LOGIC TEST WITH MNCDO CONNECTED TO MNCDI\ 


15,12 
\T = TYPEOUT LOOP FOR MNCDI TEST MODULE SWITCHES\ 


12 
= GET NEW SWITCH REGISTER VALUE\ 


(DIGITAL IN) BASE OR VECTOR ADDRESS CHANGES\ 


le 


15, 
\O = (DIGITAL OUT) BASE ADDRESS CHANGE\ 


0154 
015472 





016150 


MACY11 27(654) 


051105 
020117 


000122 
020111 


ie 
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-BYTE 
-ASCIZ 


15,12 
\H = 


1 


\MNCDO (DIGITAL OUT) 


\MNCDO (DIGITAL OUT) 


\MNCDO (DIGITAL OUT) 


\MNCDO (DIGITAL OUT) 


\MNCDI (DIGITAL IN) 


HELP THE OPERATOR AND RETYPE THIS LIST 


5.12 
/TYPE THE ‘TEST CHARACTER'' THEN DEPRESS ‘RETURN KEY’' / 


DOES NOT EXIST <BUS ERROR> CHECK ADDRESS SWITC 


DATA REGISTER ERROR\ 


STATUS REGISTER ERROR\ 


INTERRUPT ERROR\ 


DOES NOT EXIST <BUS ERROR> CHECK ADDRESS SWITCH 
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1060 


1062 


1064 


DIAGNOSTIC 
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044504 
020114 
026524 


052517 
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052111 


051105 
020111 


040524 
5 


051105 


020111 
004517 
040524 


052520 
050124 


EM6: 


EM7: 


—EM10: 


EM11: 


EM12: 


EM13: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


\MNCDI 


\MNCD I 


\MNCD I 


\MNCD I 


/MNCDI 


/MNCDI 


(DIGITAL IND 


(DIGITAL IN) 


(DIGITAL IN) 


(DIGITAL IN) 


STIMULUS REGISTER ERROR\ 


STATUS REGISTER ERROR\ 


DATA REGISTER ERROR\ 


INTERRUPT ERROR\ 


MNCDO DIGITAL INPUT-OUTPUT WRAPAROUND STATUS ERROR/ 


MNCDO DIGITAL INPUT-OUTPUT WRAPAROUND DATA ERROR/ 


SEQ 0064 
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052125 
0524 
051117 
/MNCDI INCORRECT I.D. VALUE FOR MNCDI/ 


/MNCDI (DIGITAL IN) ILLEGAL INTR. OR TRAP/ 


-ASCIZ /MNCDI (DIGITAL IN) EXISTING MNCDI FAILED TO RESPOND/ 


<200>/PROGRAM DETECTED/ 


\ MNCDI (DIGITAL IND'S \ 
046101 
051447 
052111 : OUTDAT/ 


004522 
052101 


004524 : IN DIR IN SBR/ 
004503 
051123 
044504 
051440 


017275 
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051105 050122 
041440 


004503 
051123 
004504 


IN DIR GOOD BAD/ 


IN CSR/ 


OUTCSR IN CSR GOOD 


OUTDOR IN DIR GOOD 


TO FROM ADRS./ 


ERRTOT: .ASCIZ / ;TOTAL ERROR COUNT = / 


MESGD: .ASCIZ / ;BAD UNITS / 


VTMSG: .ASCIZ <200>/MNCDI (DIGITAL IN) UNIT #/ 


047111 
052111 


VTMSG3: .ASCIZ <200>/EXPECTED INTERRUPT AT / 


020124 


042503 VIMSG1: .ASCIZ / RECEIVED INTERRUPT AT / 
0177 042105 044440 
017742 052116 051105 052522 





C 6 
CVMNB-A MNCDI DIAGNOSTIC MACY11 27(654) 19-SEP-78 08:54 PAGE 35-5 
CVMNBA .P11 ASCII MESSAGES 


017750 050 020124 
og tat) VTMSG2: <200>/PLEASE CHECK VECTOR SWITCHES/<200> 


051505 
052123 RESTARTING LOGIC TEST/ 
3516 


SETUPO: 


15,12 
\ENSURE MNCDI (DIGITAL IN) DATA SWITCH IS IN THE ‘="' POSITION\ 


15,12,0 
\CONNECT MNCDI (DIGITAL IN) TO THE TESTER\ 


I (DIGITAL IN) MUST BE CONNECTED TO MNCDO (DIGITAL OUT)\ 


15,12,0 
<15><12>/MNCDO (DIGITAL OUT) BUS ADDRESS </ 


-ASCIZ <15><12>/MNCDI (DIGITAL IN) BUS ADDRESS </ 


024516 051525 
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om 
Se leoe eASCIZ <15><12>/MNCDI (DIGITAL IN) VECTOR ADDRESS </ 
020114 
042526 
040440 
051523 
: ASCIZ /> 2? / 


- EVEN 

UNI TBD ,SERRPC ,OCSR ,DOR,0 

UNI TBD ,SERRPC,1CSR,DIR,SBR,0 

UNI TBD ,SERRPC , SBR, $GDDAT , $BDDAT ,0 

UNI TBD ,SERRPC, I1CSR,$GDDAT , SBDDAT .0 

UNI TBD ,SERRPC ,DIR,SGDDAT , $BDDAT ,0 
UNITBD,SERRPC,1CSR,0 

UNI TBD ,SERRPC ,OCSR,1CSR,$GDDAT , $BDDAT .0 


QR AAAS 


UNITBD ,SERRPC ,DOR ,DIR,$GDDAT , $BDDAT ,0 


Mme— w=] |M—r— 


Oo FO & 


001 
001 
001 
001 
001 
001 
001 
001 


UNI TBD ,SERRPC,TRTO, TRFRO,O 
UNI TBD ,SERRPC, TEMP ,$UNIT,0 
DFO: -BYTE 0,0,0,0,0,0,0,0,0,0.0 


020705 
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VMNBA P11 CROSS REFERENCE TABLE 
ABASE = 171160 61 
ACDW1 = 171260 61 
eae | = 000000 


000000 6 
020502 11004 
000000 


AUSWR = 000000 
AVECT1= 000120 
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VMNBA .P11 CROSS REFERENCE TABLE SEQ 0070 


916* 


0734 
017275 76 10744 





CVMNB-A MNCD] 
CVMNBA P11 
DIDATA 010262 
DIDINS 001432 
DIDINV 001430 
DIEINS 001436 
DIEINV 001434 
DIR 001420 
DIR1 001422 
DISPLA 001142 
DISPRE 000174 
001410 
DOR1 001412 
DOT 015562 
DSWR = 177570 
DT1 020512 
DT10 020570 
DT11 20604 
DT12 020614 
DT13 020632 
DT15 020650 
DT16 020662 
DT5 020524 
DT6 020540 
DT7 020554 
DWARF 001440 
EMTVEC= 30 
EM1 015652 
EM10 016401 
—M11 016450 
EM12 016513 
—M13 01 
EM14 016673 
E—M15 016740 
EM16 017011 
EM2 015762 
EM3 016032 
EMG 016104 
EMS 016150 
EM6 016255 
EM7 016330 
ENDOUT 020475 
ERRTOT 017600 
ERRVEC= 
EVER 001526 
EXTMSG 010176 
FIXADR 003010 
FOUND1 017075 
FOUND2 017117 
GNS = werkenne 
GTSWR = 104407 
HT = 000011 


DIAGNOSTIC 


MACY11 27(654) 


CROSS REFERENCE TABLE 


34 


8754 


635 636* 
618* 635* 
641* 658 
658* 849* 
511* 556 
731* 738 
1110 

899* 716* 
697* 709* 
1103 1110 
219 

11064 

217* 234 
391 10994 
283* 301* 
303 314* 
3304 374 
411 9364 


847s 
846* 


717* 


262* 


302* 
315* 


396 


G 6 
19-SEP-78 08:54 PAGE 35-9 


848* 1020 
847 849 
851* 852* 
1021* 1027* 
571 582 
754 776* 
737* 753* 
272* 305 
431* 437* 
317 319 
876 


1023* 
851 


770* 


421 


438* 
833 


1026* 
1016 


1022* 


586 
808* 


773* 


678 


440* 


SEQ 0071 
1029* 
1020* 1024* 1025* 1026 
1028*  1031* 


595 600 610 681* 
820* 879* 883 886 


780* 792* 797* 807* 


719 


441* 899% 


H 6 
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CVMNBA P71 CROSS REFERENCE TABLE SEQ 0072 


ICSR 001414 


779* 783 
1108 1109 
001416 


898 
732* 835 1103 1109 


412* 857* 871* 876* 
932* 





I 6 
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CVMNBA.P11 CROSS REFERENCE TABLE SEQ 0073 


001424 4 442* 444% 645% 446% 813* 
001426 
020044 
020145 
020220 
%000006 


8 
1011* 


916 


734* 736 743* 751* 
813 814 822 828* 


TRAPVE= 000034 

TRFRO 015044 1 

TRTO 015042 9 1111 
TRTVEC= 009014 

TSTRO 001450 





J 6 
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VMNBA P11 CROSS REFERENCE TABLE SEQ 0074 


279 307 365 369 378 

877 885 898 916 917 
1015 1017 

9364 


TYPOS 
UNITBD 001532 2 844 912* 1103 1104 1105 1106 1108 1109 1110 





K 6 
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CVMNBA.P11 CROSS REFERENCE TABLE SEQ 0075 


839 


846 


725 726 738* 739 754 757 
825 1105 1106 1107 1109 1110 





CVMNB-A MNCDI 
CVMNBA 


P11 


012326 


614 


932 


I MACY11 27(654) 
CROSS REFERENCE TABLE 


917 


860 
899* 


917 
916 


442* 
577* 


219 


L 6 
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1103 


863 
916 


932 


444" 
899* 


227 


1104 1105 1106 1107 


916* 


5 
726 736* 7 739 
825 1105 1106 1107 


446* 617* 899* 1032 
916 


899 916 932 


1108 1109 
449% 450 
476 483s 
542% 549 
611 686* 


755 
1109 1110 


1110 


1111 


SEQ 0076 


1712 


M 6 
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CVMNBA P11 CROSS REFERENCE TABLE SEQ 0077 
SNWTST= 000001 4454 4464 4484 4498 4504 4528 4534 4564 

4624 4714 4814 4904 4998 5094 5204 5304 5414 

6164 6394 6774 6924 7044 7164 7304 7654 


013126 
0131 


eekaene 
eeaKKK 





N 6 
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CVMNBA.P11 CROSS REFERENCE TABLE SEQ 0078 
STRAP2 014526 9364 
STRP = 000014 9364 
STRPAD 014540 9364 
STSTM 001004 604 
STSTNM 001102 614 853* 857* 899s 916 972 
STTYIN 011700 8984 
STYPBN 014430 9334 936 
STYPDS 013132 9204 936 
STYPE 014146 222* 223* 224* 225* 921 932a 936 
STYPEC 014360 898 9324 
STYPEX 014426 9324 
$TYPOC 012730 9194 936 
STYPON 012744 9194 936 
STYPOS 012704 9194 936 
1202 ote 282* 286* 291 295 308 311 314 317 321* 832* 833 1011 
SUNITM 001010 6 : 
SUSWR 001214 614 
SVECT1 001240 614 341 351 389 395* 
SVECT2 001242 614 
SXTSTR 012024 
SS$GET4= 8574 
SOFILL 013127 919M 
S4OCAT= seeeee 899 916 
° = 020707 264 37 384 434 478 534 584 594 604 614 219 857 


414 
8954 8984 899 916 9174 9204 9214 924 9264 932 11024 
-SASTA= *ee088 921 
-$x = 001000 604 


8B 7 
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CVMNBA.P11 CROSS REFERENCE TABLE 


445 
488 
653 


456 457 
576 593 





Cc 7 
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CVMNBA P11 CROSS REFERENCE TABLE SEQ 0080 


428 445 448 449 450 452 453 454 456 457 458 460 451 
487 496 506 517 527 538 550 573 601 612 689 701 713 


228 
134 
134 
134 
134 
10# 
104 
10# 
104 
124 
114 
114 
124 
114 
114 
114 
114 
114 
114 
124 
124 
10# 
104 





D 7 
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VMNBA P11 CROSS REFERENCE TABLE 


852 898 917 





ef 
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VMNBA P11 


CROSS REFERENCE TABLE 


-ASCII 
-ASCIZ 





nS 
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CVMNBA .P1 


T 
1 CROSS REFERENCE TABLE 


ERRORS DETECTED: 0 





G 7 
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CVMNBA P11 


*CVMNBA , CVMNBA/ CRF =CVMNBA 
RUN-TIME: 26 13 2 SECONDS 
CORE USED: 26K 





